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SiSIQSX  9E  IHi  QlElNSi  metwork 

A.  INTRODUCTION 

Th«  D«f«nM  Data  Nat.work  (DDN> ,  an  approaching  world- 
wida  military  data  coaaunicationa  networking  ayataa,  waa 
founded  by  and  raaaina  under  the  aegia  of  the  Defenae  Con> 
aunication  Agency  <DCA)  for  the  Department  of  Defenae  (DoD> . 
The  DDN  ia  not  one,  but  rather  aeveral  networks,  with  a  wide 
variety  of  compatible  hardware  and  software  which  allows 
interoperability  and  communications.  The  most  commonly  used 
of  these  networks  are  the  ARPANET  (Advanced  Research 
Projects  Agency  Network),  the  NILNET  (an  unclassified 
operational  Military  Network)  and  the  NINET  (Movement 
Information  Network,  which  is  relatively  new. 

A  look  into  how  these  networks  and  others  of  a  similar 
nature  came  into  existence  must,  perforce,  start  with  the 
development  of  the  concept  of  “packet  switching.” 

B.  PACKET  SWITCHING 

Packet  switching  is  a  means  of  handling  data  being 
transmitted  through  the  various  communication  channels  or 
linkages  within  a  network.  The  theory  is  simple:  local 
Interface  Message  Processors  (IMPs)  break  up  or  subdivide 
the  messages,  files,  programs,  etc.,  being  transmitted,  into 


smaller  "packets” 


which  are  then  treated  as  individual 


BMMgM*  all  labalad  and  aaquan^lally  ordarad  aa  part  of 
tha  largar  aaaaaga.  Locatad  throughout  tha  natwork  ara 
"awltching  nodaa*'»  which  racalva  aach  packat  and  chack  for 
and  corract  any  arrora  or  glltehaa  which  nay  hava  occurrad 
during  trananlaalon .  Tha  noda  will  than  althar  collact  and 
ordar  all  of  tha  aaparata  packata  of  a  aaaaaga  bafora  for¬ 
warding  tha  conplatad  whola  to  tha  intandad  raclplant,  or 
will  alnply  forward  aach  Individual  packat  on  aa  It  la 
racalvad  and  corractad.  <Saa  Flgura  1.1.) 

Packat  awltching  la  highly  coat  affactiva:  awltching 
nodaa  ara  conplataly  autonatad,  aa  wall  aa  ral labia  and 
Inaxpanaiva.  Eaay  to  Inatall  and  kaap  up,  thara  ara  now 
ovar  a  hundrad  of  than  acattarad  acroaa  tha  USA,  and 
spraadlng  rapidly  throughout  Europa  and  tha  Far  Eaat. 
Encryption  of  tha  ayatan  to  parnlt  vaatly  Incraaaad 
claaaifiad  natarial  handling  capability  haa  baan  budgatad 
for  and  la  nora  alowly  balng  Incorporatad  throughout  tha 
ayatan,  with  full  onllna  capobllltiaa  axpactad  by  tha  lata 
iseoa. 

C.  ARPANET 

The  flrat  of  tha  packet  awltching  networka  waa  devel¬ 
oped  under  a  1969  program  run  by  the  Defanae  Advanced  Re- 
aaarch  Project  Agency  (DARPA).  The  experimental  network 


thua  conceived  and  put  Into  operation  waa  dubbed  ARPANET. 
The  network  became  a  manor  aucceaa  in  the  rapid,  reliable. 


PACKET 

svrrcHNG 

NODE 


and  inaxpanaiva  aharing  of  data,  idaaa*  thaoriaa,  raaoureaa, 
and  aoftwara.  By  1979*  a  conaidarabla  nunbar  of  oparablonal 
uaara  aa  wall  aa  raaaarchara  and  axpariaanbara  had  baan 
authorlzad  accaaa  to  tha  nat,  and  control  of  tha  aaaat  waa 
ahlftad  to  tha  Oafanaa  Coaaunicatlon  Agancy.  Both  military 
and  civilian  raaaarch  projacta  ara  aupportad  by  ARPANET. 
Tha  knowladga  and  axparianca,  toola  and  aarvicaa  davalopad 
ovar  tha  yaara  hava  formad  tha  baaia  for  moat  if  not  all 
packat  awitching  natworka,  both  commarcial  and  military, 
currantly  undar  davalopmant  or  in  uaa  today. 

D.  AUTODIN  II 

A  DoD  atudy  initiatad  in  1974  pradictad  much  imminant 
major  advancaa  and  incraaaaa  in  tha  uaa  of  coaputar  tachnol- 
ogy  by  tha  military  aarvicaa  that  a  daciaion  waa  mada  to 
davalop  a  packat  awitching  natwork  dadicatad  to  and  intarnal 
to  tha  OoO  itaalf.  Thia  natwork  waa  to  hava  tha  full  hater- 
oganoua  hardware  and  aoftwara  capabilitiaa  already  found  in 
ARPANET,  and  waa,  additionally,  to  have  the  added  featurea 
of  standard  military  meaaage  precedence  handling  and  en¬ 
crypted  tranamission  for  claaaified  material. 

In  1976,  the  contract  for  thia  new  network  waa  awarded 
to  Weatern  Union  and  given  the  name  AUTODIN  II.  (AUTODIN  I 
ia  the  Western  Union  message  awitching  network  currently 
leased  by  the  government  since  the  early  1960's>.  Between 


1976  and  1982,  however.  Improvements  in  technology  and 


IncrMMd  cost,  conclouanosa  on  tha  part  of  tha  govarnnant, 
couplad  with  an  addad  aaphaala  on  radundancy  and 
aurvivability,  raaultad  in  tha  govarnaant  tarainating  tha 
AUTODIN  II  contract  and  tha  aubaaquant  davalopaant  of  tha 
DDN  undar  tha  DCA. 

E.  FORMATION  OF  THE  DDN 

DoD,  in  1979,  bagan  intarconnacting  a  nuabar  of  its 
isolated  coaputar  networks  through  internet  protocols  re¬ 
sulting  in  a  series  of  node  coaputars  linked  by  high-speed 
telephone  lines.  This  was  to  bacoaa  the  "backbone"  of  the 
DDN.  By  1983  ARPANET  had  grown  to  include  over  300  coapu- 
ters,  and  was  woefully  inadequate^  in  its  ab''lity  to  accoaao- 
date  the  increasing  nuabers  of  ailitary  would -be  ARPANET 
users.  Thus,  in  Septeaber  1984,  ARPANET  was  officially  di¬ 
vided  into  two  separata  unclassified  networks,  with  ailitary 
research  and  development  remaining  undar  tha  ARPANET  head¬ 
ing,  and  control  reverting  to  DARPA,  while  operational  mili¬ 
tary  communication  uses  were  directed  to  the  newly 
designated  NILNET,  which  remained  under  DCA  control.  Elec¬ 
tronic  mail  can  still  be  sent  between  the  two  networks,  but, 
as  security  safeguards  are  added  to  the  NILNET,  traffic  will 
increasingly  be  limited  and  controlled  by  so-called  "gate- 


II.  AN  gVERVIgW  QF  Tgg  DEFENSE  DATA  NEXWQRK 


A .  INTRODUCTION 

Th«  DDN  !•  •nviaionad  aa  a  worldwida  unlfiad  packat 
awltching  natwork  dadlcatad  to  aaating  tha  data  communica¬ 
tion  raquiramanta  of  tha  DoD.  Tha  natwork  ia  subdividad  into 
two  functional  araaa:  (1)  tha  natwork  backbona*  comprising 
tha  trunk  circuits  and  switching  nodas,  and  (2>  tha  accass 
natwork,  compriaing  local  circuits  and  intarfacing  aquipmant 
allowing  individual  authorizad  usars  to  connact  to  tha  back- 
bona.  TOPS-20  is  ona  of  savaral  tiaasharing  oparating  system 
in  currant  usage  on  tha  DDN.  Additional  Information  on  TOPS- 

20  can  ba  found  in  tha  <D0CUHENTATI0N>  directory,  as  noted 

in  tha  tutorial . 

B .  THE  BACKBONE 

Tha  DDN  backbone  (IHPs  and  TACs>  will  eventually  con¬ 
sist  of  soma  200  nodes  located  at  soma  100  sites.  Again,  as 
mentioned  earlier,  redundancy  and  survivability  are  of  key 
interest  to  DoD.  Most  of  the  transmission  trunks  will  be  via 
leased  landline  circuits,  although  some  satellite  transoce¬ 
anic  links  are  already  in  operation.  (See  Figure  2.1.> 

C.  THE  ACCESS  NETWORK 

Individual  user  terminals  normally  access  the  DDN  via  a 

host  computer,  which  is  in  turn  connected  to  the 

i 


10 


Figure  2.1 
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•forMsntionad  IMP.  It  !•  also  poaalbla*  hot#avar,  to  eonnaet 
a  hardwlrad  or  dial-up  taralnal  to  tha  DDN  via  a  Tarainal 
Accaaa  Controllar  <TAC) .  <Saa  Flgura  2.2.) 

Each  boat  coaputar  haa  a  hoatnaaa  and  addraaa  aa  ita 
primary  maana  of  idantification.  Additionally*  aach  natwork 
haa  a  natwork  addraaa  aaaociatad  with  it.  Whila  hoatnaaaa 
(uaually  aanaaonic  acronyna)  ara  all  that  ia  nacaaaary  for 
sanding  alactronic  mail  around  tha  nat*  should  you  accass 
tha  nat  via  a  TAG*  you  must  usa  tha  aquivalant  numarical 
host  addrass  instaad. 

Examplaa  of  hostnamas  and  addrassas  ara: 

Host  Host  Location  Network 

addrass  naaa  type 

24.1.0.7  NINET-LON-TAC  DCA  London  HINET 

26.3.0.16  AMES-VMSB  NASA*  Moffat  Fid*  CA  MILNET 

10.0.0.15  ROCHESTER  UNIV  of  Rochastar*  NY  ARPANET 
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yaiBia  syica  is  ike  cyH^zoEarEs  lyioeiEL 


This  Ussr's  Quids  to  ths  Dsfsnss  Dots  N«twork/T0PS-20 
Intsractlvs  Tutorial  praauppoaaa  that  tha  uaar  has  workad 
or  Is  working  through  tha  DDNTUT.FOR  program.  Accass  to  tha 
program  la  galnad  by  antarlng  tha  follwolng  at  tha  “9** 
prompt : 


EXECUTE  <DECAIDS>  DDNTUT.FOR 

Compilation  of  tha  program.  If  raqulrad,  will  occur 
automatically.  Onca  tha  program  has  boon  loadad  by  the 
systom,  you  will  saa  the  opening  line  “WELCOME  TO  THE  DDN“, 
and  you  are  off  and  running. 

This  guide  Is  Intended  to  serve  strictly  as  a  reference 
manual  for  users  of  the  tutorial.  It  provides  short 
descriptions  of  the  Executive  Level  commands  and  the  nine 
system  level  programs  the  user  encounters  while  working 
through  the  tutorial . 

Examples  are  not  provided  herein,  as  that  is  the 
purpose  of  the  tutorial  Itself.  Should  the  user  remain 
uncartaln  regarding  tha  correct  procedure  to  follow  In  util¬ 
izing  a  system  program,  he/she  is  encouraged  to  refer  to  the 


tutorial 


At  th«  and  of  this  Guido  lo  a  racap  of  tha  “Whara  To  Go 
From  Hara*’  portion  of  tha  tutorial.  Uaara  who  wish  to  in- 
croaaa  thair  knowladgo  of  tha  TOPS-20  oparating  mymtmm 
and/or  tha  Dafanaa  Data  Natwork  ara  urgad  to  utiliza  thoaa 
aourcaa . 

NOTE:  Filanaao.  Filatypa*  and  Ganaration  Nuabar  ara  abbra- 
viatad:  FN.FT.NU  raapactivaly  throughout  this  Uaar's  Guide 
and  tha  tutorial . 


EXECUTIVE  LEVEL  COMMANDS 


Th«  ExacuLlv*  Laval  <EXEC>  o£  tha  TOPS-20  oparating 
syataa  ia  antarad  aftar  you  log  on  or  aftar  axacution  of 
ayatan  routinaa*  and  la  notad  by  tha  dlaplay  of  tha  *'0'* 
prompt.  Connanda  hara  fall  into  thraa  catagoriaa: 

1 .  Curaor  Comaanda 

2.  Diractory-Ralatad  Conmanda 

3.  Syatan-Ralatad  Comaanda 

Notaa : 

1.  Tha  “  **  charactar  rafara  to  tha  control  (CTRL>  kay. 

2.  ESC  rafara  to  tha  aacapa  kay. 

3.  <CR>  rafara  to  tha  carrlaga  raturn  or  antar  key. 

4.  DEL  rafara  to  tha  dalata  day. 


CURSOR  COMMANDS 


KEY  USE(S> 

ESC  Complataa  a  command  or  Fllanama  onca  you  have 

typed  enough  for  tha  ayatem  to  recogniza  your 
Intantlona  ara. 

CTRL  Uaad  with  another  key  to  enter  a  command;  muat  be 

held  down  while  the  other  kay  is  typed. 

^C  Used  to  abort  a  partially  completed  command  or  to 

stop  printing  something  you  don't  want  to  aee. 
to  see.  Will  return  you  to  the  EXEC  level  if  you 
are  not  already  there. 

^'T  Uaad  to  ahow  that  the  ayatem  ia  atill  running. 

^S  Freezea  typaout  on  tha  acrean  and  acta  aa  a  no- 

acroll  key. 


0 


Reaumes  typaout  on  screen  after  use  of 
command. 


T 


Prompt  for  tho  EXEC  lovol.  Must  bo  typod  twico  to 
ontor  it  Into  toxt  whllo  In  XED  and  noat  othar 
prograaa  if  accoaaing  your  boat  through  a  TAC. 


• 

DEL  Dolotaa  charactara  from  right  to  loft. 

‘'0  Stopa  tarainal  output. 

Dalataa  worda  from  right  to  loft. 

''Z  End-of-filo.  Uaad  whanovar  you  hava  finiahod  on- 

taring  data,  taxt,  aaaaagaa,  ate. 

<CR>  Carriaga  raturn.  Confiraa  a  givan  comaand  and  par- 

aita  axacution  of  tha  coaaand. 


DIRECTORY-RELATED  COMMANDS 

A  coapata  liating  of  thaaa  coaaanda  can  be  saen  by 
typing  "?“  aftar  tha  “0“  proapt.  Tha  following  la  a  listing 
of  thoaa  noat  of tan  uaad: 


COMMAND  USE<S> 

DIRECTORY  Or  ••DIR<CR>”;  lists  tha  names  of  all  your 

files. 


TYPE  Typos  tha  contents  of  a  file. 

APPEND  Appends  one  file  to  the  end  of  another. 


ARCHIVE 

DELETE 

UNDELETE 

EXPUNGE 

SET  DIR  PASS 

PROTECTION 


Places  a  file  in  off-line  storage. 

Deletes  a  file  from  your  directory. 

Restores  DELETEd  files  back  to  your  direc¬ 
tory,  unless  you  hava  expunged  or  logged  off 
or  sometimes  if  the  system  crashes. 

Permanently  erases  all  DELETEd  files. 

Allows  you  to  change  your  password. 

A  six  digit  number  which  restricts  access  to 
any  file  in  your  directory.  775200  is  the 
default.  For  more  info,  type  HELP  PROTEC¬ 
TION  at  the  EXEC  level. 


SYSTEM-RELATED  COMMANDS 


COMMAND 


SYSTAT 


FINGER 


ATTACH 


TER  NO  RAISE 


INFO  HAIL 


INFO  DISK 


TALK  TO  < 


BREAK 


CONTINUE 


REFUSE 


RECEIVE 


USE(S> 

UMd  to  •••  ovoryono  on  a  host.  To  mmm  if  a 
particular  uaar  la  up  on  tha  host,  t.ypa  SY 
<USERNAME>  <CR>.  Tha  aystaa  will  raspond  with 
a  30b  nunbar«  atc.»  if  tha  uaar  is  on  tha 
host  or  with  3uat  a  **0”  if  tha  uaar  is  not  up. 

Uaad  to  find  out  information  about  a  apacific 
uaar  and  ia  invokad  by  typing  FINGER  <USER- 
NAME>  <CR>  at  tha  EXEC  prompt. 

Attachaa  a  30b  to  your  currant  30b. 

£  Makaa  your  tarminal  accapt  both  uppar  and 
lowar  caaa  1 attar a. 

Aaka  ayatam  chack  for  now  maaaagoa. 

Liata  information  about  your  currant  page 
allocation. 

Craataa  a  communication  link  with  another 
apacifiad  uaar,  if  on-line.  If  you  are  LINKad 
to,  ramambar  to  type  a  '‘C  to  place  a  hold  on 
whatever  it  is  you  ware  doing  before  respond¬ 
ing  to  tha  LINK.  Use  tha  symbol  ;  or  !  to 
preface  each  line  of  type. 

Either  individual  LINKad  can  type  this  to 
terminate  tha  link. 

Restores  a  user,  following  a  LINK,  to  the 
place  where  a  '^C  was  typed. 

Type  this  in  your  LOGIN. CHD  file  if  you  do 
not  wish  to  be  interrupted  by  anyone  LINKing 
to  you . 

Type  thia  in  your  LOGIN. CND  file  if  you  don't 
mind  being  interrupted  (receive  is  also  the 
default) . 


MSG 


MSG  is  a  program  which  allows  ths  user  to  Croats,  sand, 
fils  and  read  msssagss,  ra£orrsd  to  also  as  nail.  A  listing 
bslow  provides  ths  commands  which  may  bs  used  within  MSG. 
They  nay  also  be  seen  from  within  MSG  by  typing  a  '*?**  after 
the  MSG  prompt,  which  appears  as  “<-**.  To  enter  MSG,  type 
MSG  at  the  EXEC  prompt. 


MSG  COMMAND  LEVEL  COMMANDS 
COMMAND  USE<S> 

A  Answer  a  message 

B  Back  up  to  previous  message  (also  ^  or 

C  Currant  message 

0  Delete  a  message 

E  Exit  and  update  message  file 

F  Forward  a  message 

G  Go  to  mesage  number  <  > 

H  Headers  (HA:  Headers  ALL> 

I  Inclusion  of  length  of  header 

J  Jump  into  lower  fork 

K  Koncise  -  provide  shorter  prompting 

L  Liat  of  messages 

H  Move  message  into  a  file  (deletes  it  as  a  message) 

N  Next  message  number 

O  Overwrite  old  file 

P  Put  a  message  into  a  file  (does  not  delete  it  as  a 

message) 

Q  Quit,  return  to  EXEC  level  without  update  of  MSG 

file 

R  Read  in  a  file  (specified) 

S  Send  a  message 

U  Undelete  a  message 

V  Verbose  -  provides  more  prompting 

W  Write  file  sorted  by  message  arrival  time 

X  XED  -  enter  XED 

Z  Zap  profile 

'  '  Marks  message  as  examined 

Marks  message  as  not  examined 
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Display  currant  tlaa  and  data 

?  Typa  with  tha  eoaaand  eharactar  for  ita  daacrip- 

tlon,  alona  for  auaaary  of  coaaanda  aval labia 
;  Coaaant 

'^N  Abort  aaaaaga 

'^Z  Naaaaga  coaplatlon 


COMMANDS  WITHIN  MESSAGE  SEQUENCE 

If  you  aak  tha  ayataa  to  typa  out  a  aaaaaga  (T  -  typa) 
or  output  haadara  (H  -  haadara),  ate.,  tha  ayataa  will  aak 
you  for  tha  aaaaaga  aaquanca.  Usually,  all  you  daslra  is 
ona  aaaaaga,  so  you  juat  typa  that  aaaaaga  nuabar  followed 
by  a  carriage  return.  If  you  daaira  to  have  several  sassages 
printed  you  nay  use  tha  following: 


10:15  Prints  nassagas  10  through  15 

>15  Prints  all  aaaaaga  nunbara  greater  than  15 

6:3  Prints,  in  ravarsa  order,  aassgas  6  through  3 

24,7  Prints  aassaga  24,  than  aasaaga  7 


Other  ways  of  responding  to  tha  aassaga  aaquanca  request 

froa  tha  ayataa  are: 

ESC  Currant  aassaga 

Last  aaquanca  specified 
A  All  aassaga  or  headers 

D  Delated  aassagas  or  headers  (prior  to  EX¬ 

PUNGE  or  EXIT) 

E  Exaained  aesaages 

F  String  search  of  headers 

I  Inverse  order 

L  Last  aessage  sequence 

N  Not  exaained  aessages 

0  Old  aessages /headers 

R  Recent  aessages  only 

S  String  search  of  subject 

U  Undeleted  aessages 
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XED  i«  a  taxt.  adltor;  apaci£ically  a  lina  aditor.  It 

allowa  you  to  both  craata  and  adit  taxt,  ona  lina  at  a  tiaa. 

Entry  into  XED  la  by  typing  XED  at  tha  EXEC  prompt.  Some 

helpful  dafinltiona  are: 

Text  Buffer  -  Your  currant  working  space 

Print  Buffer  -  Area  where  KILLad  material  is  sent 

Command  Level  -  Level  you  are  at  when  entering  XED, 

distinguished  by  the  “ : ”  prompt 
Line  Number  -  Assigned  by  XED  to  each  line  In  your  text 

buffer;  for  your  reference  only,  not 
stored  in  the  file 


XED  COMMAND  LEVEL  COMMANDS 
COMMAND  USE<S> 

A  APPEND,  used  to  enter  text  after  the  current  line 

B  BACK  UP,  used  to  create  a  back  up  file 

C  CHANGE,  to  modify  current  line(s> 

E  EXIT,  to  leave  XED,  after  a  file  save 

F  FIND,  to  locate  a  specific  letter,  word  or  phrase  in 

text 

G  GROUP,  to  ^oin  current  line  with  following  line 

I  INSERT,  used  to  enter  text  before  current  line 

J  JAM,  puts  contents  of  print  buffer  after  current 

line 

K  KILL,  places  current  or  specified  lineCs)  into  print 

buffer 

L  LIST,  Outputs  entire  text  buffer  without  line  num¬ 

bers 

P  PRINT  BUFFER  or  DUMP,  prints  contents  of  print 

buffer 

Q  QUIT,  leaves  XED  prior  to  file  save 

R  READ,  puts  into  XED  the  contents  of  specified  file 

S  SEARCH,  like  FIND,  but  locates  all  occurrences 

T  TYPE,  prints  current  line 

V  VIEW,  prints  current  and  following  15  lines 

W  WRITE,  prints  contents  of  text  buffer  to  a  file 

X  EXCHANGE,  used  to  search  for  and  replace  text 

Z  ZAP,  puts  your  entire  file  into  the  print  buffer 


0  0 


SWITCH  DUMP,  swapa  contanta  of  tha  print  and  taxt 
buffara 

TYPE  CONTEXT,  typaa  currant  lina  and  fiva  linaa 
bafora  and  aftar 
/  TYPE,  typaa  currant  lina 

X  SENDMSG,  uaaa  currant  taxt  buffar  aa  body  of  a 

maaaaga 

S  LAST  LINE,  placaa  you  at  and  of  file 

?  Diaplaya  available  coaaanda 

TYPEa  the  next  line 

^0  ABORTa  partially  completed  conmanda 

_  FORMAT,  right  juatifiaa  a  paragraph 


COMMANDS  WITHIN  INSERT  AND  APPEND 


COMMAND  USE(S) 


DEL  KEY 
^R 

-W 

^2 


Delataa  letter  to  left  of  cursor 

RETYPES  current  line,  leaving  cursor  at  end 

KILLS  LINE  to  left  of  cursor 

DELETES  WORD  to  left  of  cursor 

RETURNS  you  to  the  command  level 


I 
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FILE  TRANSFER  PROTOCOL  (FTP) 


FTP  is  a  program  employed  Lo  transfer  files  around  the 

net.  This  can  be  done  from  within  a  host  or  between  hosts. 

It  does  necessitate  that  you  have  access  to  a  directory  on 

each  host... the  directory  which  has  the  material  you  desire 

and  the  directory  to  which  you  wish  the  material 

transferred.  The  following  prompts  are  unique  to  FTP: 

FTP>  FTP  command  level  prompt 

USC-ISIE. ARPA>  Sample  foreign  host  command  level 

prompt 


FTP  COMMAND  LEVEL  COMMANDS 


COMMAND  USE<S} 


FTP 

CONNECT 


SEND 

GET 

BYE 

DISCONNECT 

QUIT 

EXIT 


Invokes  the  FTP  protocol 

Connects  you  from  the  local  host  you  are 
logged  onto,  to  the  foreign  host  you  are  at¬ 
tempting  to  reach 

Sends  a  file  from  your  local  directory  to  the 
foreign  directory 

Retrieves  a  file  from  the  foreign  directory  to 
your  local  directory 

Disconnects  you  from  the  foreign  host 
Same  as  BYE 
Leaves  FTP 
Same  as  QUIT 


TELNET  (TN> 


TN  is  a  program  which  allows  a  ussr  on  ona  host,  to 
accass  anothar  hoat.  It  actually  appaars  as  though  you  ara 
loggad  into  tha  foraign  host  diractly  from  a  TAC  rathar  than 
through  your  local  host.  Tha  program  also  has  tha  advantaga 
of  making  your  control  characters  do  what  you  axpact  tham  to 
dOf  avan  if  tha  control  charactara  on  tha  foraign  host  ara 
different. 

Using  TN  is  actually  quits  simple.  All  you  need  do  is 
type  “TN**,  followed  by  tha  foraign  host  name,  after  tha  EXEC 
prompt.  If  a  pathway  to  tha  foraign  host  is  available  and 
tha  host  is  up  and  running,  you  will  connect  to  tha  foraign 
host  ready  to  log  into  a  directory.  Tha  standard  '*0**  EXEC 
prompt  will  be  displayed.  Everything  from  than  on  is  tha 
same  as  logging  into  your  own  directory.  Whan  you  are  fin¬ 
ished,  simply  log  out  of  the  foraign  diractory,  and  you're 
back  in  your  own  diractory  at  your  local  host. 

Note:  If  you  access  the  foreign  host  by  using  the  TN 

command,  and  than  enter  <HOSTNAHE>  <CR>  at  tha  TN>  prompt, 
when  you  LOGOut  of  tha  foraign  diractory,  you  will  be 
returned  to  the  TN>  prompt.  Simply  type  EXIT  <CR>  and  you'll 
be  back  home. 

One  additional  idiosyncracy  of  TN  is,  since  all  control 
characters  are  meant  to  behave  on  the  foreign  host  as  they 
would  on  tha  local  host,  you  cannot  use  •••'C"  to  return  to 


PHOTO 


PHOTO  !•  a  program  which  allows  you  to  rscord,  or  savs, 
portions  of  s  sassion  on  ths  nst.  It  is  invoksd  by  typing 
“PHOTO  <CR>"  at  ths  EXEC  prompt.  You  will  than  bs  asksd  to 
supply  a  filsnama  to  which  ths  PHOTO  sassion  is  to  bs  re- 
cordsd.  PHOTO  will  rscord  what  you  typs,  as  wall  as  ths 
responsaa  from  ths  computsr.  Whils  you  arm  in  PHOTO, 
evsrything  will  work  as  normal.  Ths  control  characters 
remain  as  before.  and  you  still  get  the  same  prompts.  What 
this  means  is.  you  cannot  use  to  exit  from  PHOTO.  The 
normal  means  of  exiting  PHOTO  is  to  type  the  command  “POP 
<CR>"  at  any  EXEC  prompt. 

There  is  one  control  character  peculiar  to  PHOTO:  ••^Y“ 
is  used  to  suspend  the  PHOTO  session.  When  you  are  ready  to 
continue  recording,  simply  input  another  '"Y. 

If  you  check  your  directory  after  POPing  out  of  PHOTO, 
you  will  see  the  new  file.  You  can  use  the  TYPE  command  or 
enter  XED.  READ  in  the  file.  and  view  it.  While  you  are  in 
XED.  you  can  also  edit  the  file. 

While  you  are  in  PHOTO.  the  system  beeps  at  you  peri¬ 
odically  to  remind  you  that  you  are  recording  the  session. 
The  periodicity  of  the  beeps  is  set  at  30  seconds  by  default; 
you  may  change  this.  or  eliminate  them  entirely  through  use 


of  the  following  command: 


REMIND 


REMIND  is  a  program  which  allows  you  to  craata  ramind- 
ara  for  yoursalf  or  othars  to  ba  aant  by  tha  aystam  at  a 
latar  tima,  aa  spacifiad  by  you.  You  may  schadula  a  ramind- 
ar  to  ba  aant  only  onca,  or  aa  fraquantly  as  you  lika.  You 
may  also  aalact  whathar  tha  ramlndar  will  ba  HAILad 
<dellvarad  via  normal  masaaga  aarvica) ,  SENT  (dalivared 
directly  to  addraasaa'a  scraan,  however,  if  tha  addrassea  ia 
not  logged  on,  tha  maasaga  is  lost  foravar)  or  by  BOTH 
methods  (recommended) . 

To  uaa  tha  REMIND  program,  type  "REMIND  <CR>"  at  the 
EXEC  prompt.  Use  tha  CREATE  command  to  initiate  a  reminder 
maasaga.  A  variety  of  prompts  will  ba  provided  such  as  who 
the  message  is  to  be  sent  to,  whan,  how  often,  how  sent, 
etc.  All  of  these  prompts  are  fairly  self-explanatory,  but 
if  you  get  stuck,  simply  type  a  question  mark. 

REMIND  is  the  fastest  way  to  send  a  message,  as  it 
doesn't  force  you  to  read  the  headers  of  any  unlooked-at 
messages,  etc.,  aa  with  the  MSG  program. 


REMIND  COMMAND  LEVEL  COMMANDS 
COMMAND  USE(S} 


CREATE  Used  to  CREATE  a  message 

DAYTIME  Prints  the  exact  date  and  EST  time 

DELETE  DELETES  remind  messages 

EXIT  EXITS  out  of  REMIND 


HEADERS 

HELP 


LiaLs  subjact.  lina  o£  all  your  REMIND  aaaaagaa 
Glvaa  info  about  all  optiona;  or  a  apacific 
conaand 

MODIFY  Changaa  tha  paranatara  (ax:  tlaa  aag  to  ba 

aant) 

QUIT  Sana  aa  EXIT 

SURVEY  Llata  all  racant  raalnd  aaaaagaa  you  hava  aant 

TYPE  TYPEa  a  raalnd  aaaaaga  alraady  lookad  at 

UNDELETE  UNDELETEa  raalnd  aaaaagaa 
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INQUIR 


INQUIR  allows  you  to  antar  Information  into  a  fila 
which  can  ba  raad  by  yoursalf  or  othars  using  the  “FINGER  / 
VERBOSE  <USERNAHE>  command.  INQUIRE  is  antarad  by  typing 

“INQUIR  <CR>“  after  the  EXEC  prompt.  following  which  you 

type  the  command  “MODIFY  <USERNAME>  <CR>“  where  uaarnama  ia 
your  own  directory  name.  The  system  now  will  ba  at  its 
entry  level.  and  will  either  respond  with  a  >>  prompt.  if 

data  ia  already  in  your  file.  or  with  questions  if  there  in 

no  information  in  the  file  or  in  a  specific  field  in  the 
file. 

While  you  are  building  or  modifying  an  INQUIR  file,  the 
normal  XED  editing  commands  (DEL  key.  ^R.  ~W.  etc.>  may  be 

used.  will  signal  the  system  that  you  have  completed  the 

file.  The  REMARKS  section  of  the  file  allows  you  to  leave 
short  messages  for  people  INQUIRing  about  you. 

When  you  are  at  a  >>  prompt.  there  are  a  few  commands 
available  which  can  be  useful: 

COMMAND  USECS) 

ALL  Allows  you  to  review/changa  the  entire  data 

base. 

<FIELD  NAME>  Allows  you  to  change  a  specific  field 

SHOW  Shows  you  the  entire  data  base  as  it  would 

appear  with  a  FINGER/VERBOSE  command 
Exits  to  the  >  prompt  from  the  >>.  or  to  9  from  > 


EXIT 


FINGER 


FINGER  ia  a  program  to  halp  locata  and  identify  uaera 
on  a  ayatem.  It  ia  called  from  the  EXEC  Level  by  typing 
“FINGER  <CR>“.  Ita  main  featurea  are  paraonal  name  and  line 
location  output.  If  you  leave  a  meaaaga,  called  a  “plan", 
in  a  FINGER. PLAN  file,  it  will  print  out  when  aomeone 
FINGERa  you  and  you  are  not  logged  on.  Thia  file  ia  a  free¬ 
form  text  file  created  in  XED,  and  the  file  protection 
(SET  PROTECTION  command)  ahould  be  at  leaat  775252  to  allow 
all  other  uaera  to  read  it. 

Calling  aequencea  for  FINGER  include: 

1.  GFINGER  <USERNAHE> 

Printa  whatever  meaaage  uaer  haa  in  their  .PLAN 
file;  tella  you  if  uaer  ia  logged  on. 

2.  9FINGER  /  <SWITCHES>  <USERNAHE>  OR 

SFINGER  <USERNAHE>  /  <SWITCHES> 

If  uaername  ia  blank,  all  uaera  at  a  awitch  will  be 
aummarized  alphabetically.  If  uaername  apecified, 
info  about  that  particular  uaer  on  that  awitch  is 
printed  in  more  detailed  fashion. 

3.  OTHER  SEQUENCES: 

/DETACHED  Displays  detached  jobs 

/DIAL-IN  Displays  dial-in  jobs  only 

/HELP  Show  this  message 

/NO-DETACHED  Suppress  display  of  detached  jobs 
/NO-OPERATOR  Suppress  display  of  operator  jobs 

/OPERATOR  Display  operator  jobs  only 

/TERSE  Output  line  job  status  only 

/VERBOSE  Output  plan  and  mail  info,  plus  INQUIRE 

database,  not  including  account.  <USER- 
NAME>  must  be  specified. 

Useful  for  remote  users;  displays  site 
dependent  info  about  a  specific  user. 


/WHOIS 


ELECTRONIC  HAIL  HOST  (ENH> 


An  Electronic  Mall  Hoat,  or  ENH*  ia  a  apacial  kind  of 
boat.  The  only  capability  an  EMH  haa  ia  aanding  and  receiv¬ 
ing  aeaaagea.  To  uae  an  EMH,  you  auat  be  authorized  acceaa, 
and  have  a  directory  name  and  one  or  two  paaaworda,  aa 
raquirad.  The  paaaworda  change  frequently  to  prevent  idle 
chitchat,  uaar  abuae,  and  large,  inexplicable  billa. 

To  acceaa  an  EMH  boat,  uae  the  TN  command.  When  the 
connection  ia  aatabliahed,  log  on  and  give  paaaworda  3uat  aa 
if  you  were  logging  into  any  directory.  There  are  a  number 
of  command  optiona  in  EMH  uaeful  in  creating  and  mending 
meaaagea,  reading,  delating,  and  filing  other  meaaagea,  etc. 
They  are  largely  aelf -explanatory,  and  bear  a  atrong  resem¬ 
blance  to  the  commands  previously  discussed  for  MSG,  REMIND, 
and  other  programs  found  on  the  system.  Remember  to  use  a  ? 
if  you  gat  stuck. 

The  following  are  soma  unique  EMH  commands: 

COMMAND  USE<S> 

COMPOSE  Used  to  create  a  message. 

REPLY  Used  to  reply  to  a  message. 

. <CR>  Used  to  end  a  message  when  entered  alone  on  a 

separate  line. 
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WHERE  TO  GO  FROM  HERE 

Th«  following  mat.orlalft  s«rv«  as  axcsllant.  sources  of 
information  on  the  TOPS-20  operating  systems  and  sub¬ 
systems,  including: 

HELP,  ?,  ACTION,  DOCUMENTATION,  FTP,  TN,  FINGER,  MM,  HERMES, 
XED,  EMACS,  REMIND,  PHOTO,  WHOIS,  ARCHIVE  AND  SCRIBE. 


USER'S  GUIDE  TO  TOPS-20 

WAYNE  TURNER 

SEPT  1983  &  APRIL  1984 

use  INFORMATION  SCIENCE  INSTITUTE 

4678  ADMIRALTY  WAY 

MARINA  L^L  REY,  CALIFORNIA  90291 

<213)822-1511  EXT  289 

ACTION  0  USC-ISI.ARPA 


TOPS -20, 

CHLOE  SOMMERS  HOLG 
AUGUST  1983 

use  INFORMATION  SCIENCE  INSTITUTE 

4676  ADMIRALTY  WAY 

MARINA  DEL  REY,  CA  90291 

<213)  822-1511  EXT  289 

ACTION  e  USC-ISI.ARPA 


PROFESSOR  GARY  POOCK 
CODE  55PK 

NAVAL  POSTGRADUATE  SCHOOL 
MONTEREY,  CA  93943 
POOCK0USC- ISI . ARPA 
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Th«  following  are  in£oraiat.ive  sources  on  the  creation 


of  the  Defense  Data  Network*  where  It's  at  today  and  where 
It's  going: 


DDN  NEW  USER  GUIDE  (NIC  50001) 
MARCH  1985 

DDN  NETWORK  INFORMATION  CENTER 
DDN  PROGRAM  MANAGEMENT  OFFICE 
DEFENSE  COMMUNICATION  AGENCY 
WASHINGTON,  D.C. 

(703)  285-5025 


Useful  addresses: 


BOLT,  BERANEK  AND  NEWMAN  INC. 

50  MOULTON  STREET 

CAMBRIDGE,  MASSACHUSETTS  02238 


COMPUTING  ANALYSIS  CORPORATION 
1400  WILSON  BLVD,  SUITE  1101 
ARLINGTON,  VA  22209 


DIGITAL  EQUIPMENT  CORPORATION 

PO  BOX  CS-2008 

NASUA,  NEW  HAMPHSHIRE  03061 


DOCUMENT  DISTRIBUTION, 
use  INFORMATION  SCIENCES  INSTITUTE 
4676  ADMIRALTY  WAY,  SUITE  1100 
MARIA  DEL  REY,  CALIFORNIA  90291 


MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY 
ARTIFICIAL  INTELLIGENCE  LABORATORY 
ATTN:  PUBLICATIONS 

545  TECHNOLOGY  SQUARE 
CAMBRIDGE,  MASSACHUSETTS  02139 


UNILOGIC,  LTD 
160  N.  CRAIG 

PITTSBURG.  PENNSYLVANIA  15213 


APPENDIX  B 


MAINTENANCE  MANUAL 
TO  THE 

DEFENSE  DATA  NETWORK/TOPS-20  TUTORIAL 
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•••«DDH  TUTORIAL— •■■••MAIN  PROCRAM>-«>>«>>>-> 
AN  INTERACTIVE  TUTORIAL  FOR  THE  DEFENSE  DATA  NETWORK 
LCOR  M.  K.  H.  RERKERT,  USH 
LT  S.  L.  SMITH-MOREAU.  USN 
US  NAVAL  POSTGRADUATE  SCHOOL,  MONTEREY.  CALIFORNIA 


N'-Zv' 


'I'A 


•PURPOSE* 


•MAINTENANCE* 


THIS  TUTORIAL  IS  DESIGNED  TO  INTRODUCE  THE  NEW  USER  TO  THE 
COMMANDS  AND  SYSTEMS  IN  USE  OH  THE  TOPS-20  VERSION  OF  THE 
DEFENSE  DATA  NETWORK  (DDN). 

THIS  PROGRAM  IS  WRITTEN  IN  FORTRAN  AND  WILL  PERFORM  EQUALLY 
WELL  ON  EITHER  A  FULL  SCREEN  VDT  OR  A  SPOOL  PAPER  TERMINAL. 

QUESTIONS  ON  THIS  PROGRAM  AS  WELL  AS  REQUESTS  FOR  EXTERNAL 
DOCUMENTATION  AND  MAINTENANCE  SHOULD  BE  HADE  TO  PROFESSOR 
GARY  POOCK  (POOCKaiSI.ARPA) . 


>  .V*. 


.INSTALLATION  OF  PROGRAM*-*— —••»—•  — ••••••■ 

THE  FOLLOWING  ACTIONS  ARE  REQUIRED  TO  INSTALL  THIS  PROGRAM: 

1.  PLACE  COPY  OF  "DDNTUT.FOR”  IN  THE  DIRECTORY  FROM  WHICH  IT 
IS  TO  BE  RUN. 

2.  EXECUTE  THE  PROGRAM  (EXECUTE  DDNTUT.FOR)  UNTIL  YOU  GET  TO 
TO  THE  INITIAL  INTRODUCTION.  THIS  COMPILES  THE  PROGRAM; 
CREATES  A  "DDNTUT.REL"  FILE. 

3.  SET  PROTECTION  AS  FOLLOWS: 

DIRECECTORY  777740 

DDHTUT . FOR  777700 

DDMFOR . REL  777752 

THE  PROGRAM  CAN  NOW  BE  RUN  FROM  ANY  ACCOUNT  ON  THE  HOST  BY 
THE  USER  ENTERING: 

"EXECUTE  <DIRECTORY  WHERE  INSTALLED>  DDNTUT.FOR” 


'■/A 

«  “  •  •  » 


■V 


INTEGER  INPUT 
DIMENSION  DEMKi; 


oo  vi  o  o  n  O' o  o  o  moon  1^000  w  o  n  n  wooo  mooo  ooomjj  000 


DUM-O 


PROVIDE  INITIAL  INTRODUCTION 

TYPE  1600 
TYPE  100 

READ(0S.130,ERR>15)  DEKl 

IF(DEMl(l>.EQ.'Q'.OR.DEMl<l).EQ.'q'>GO  TO  520 
i  TYPE  110 

i  TYPE  120 

PROVIDE  FOR  SELECTION  OF  DESIRED  AREA  OF  INSTRUCTION 

READ(0S.«.ERR>16)  INPUT 
IFdNPUT.LT.l. OR. INPUT. GT.16)G0  TO  16 
IF ( INPUT. EO.  16) GO  TO  500 

GO  T0(1.2,3.4,5.6.7,6.9.10,ll,12,13.14.17> INPUT 
GO  TO  15 

SUBROUTINE  FOR  INTRODUCTION  TO  HELP,  7.  AND  ACTION 

CALL  INTRO <DUK) 

GO  TO  15 

....  SUBROUTINE  FOR  BASIC  EXECUTIVE  LEVEL  COMHANDS 

CALL  ELCKDUH) 

GO  TO  15 

*•><  SUBROUTINE  FOR  ADVANCED  EXECUTIVE  LEVEL  COMHANDS 

CALL  ELC2<DUH> 

GO  TO  15 

«...  SUBROUTINE  FOR  INTRODUCTION  TO  HSG 

CALL  AMSG(OUH) 

GO  TO  15 

....  SUBROUTINE  FOR  INTRODUCTION  TO  XED 

CALL  AXED < DUN) 

GO  TO  15 

«...  SUBROUTINE  FOR  INTRODUCTION  TO  FTP 

CALL  AFTP(OUH) 

GO  TO  15 

....  SUBROUTINE  FOR  INTRODUCTION  TO  TN 

CALL  ATNCDUH) 

GO  TO  15 

....  SUBROUTINE  FOR  INTRODUCTION  TO  PHOTO 
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c 

e  CALL  APHOTO(DUM) 

CO  TO  15 
C 

C  SUBROUTINE  FOR  INTRODUCTION  TO  REMIND 

C 

9  CALL  ARMNDCDUN) 

CO  TO  IS 

C 

C  >•»  SUBROUTINE  FOR  INTRODUCTION  TO  INQUIRE 

C 

10  CALL  AINQR(DUM) 

CO  TO  IS 

C 

C  ••••  SUBROUTINE  FOR  INTRODUCTION  TO  FINDER 

C 

11  CALL  AFNGR<DUM) 

CO  TO  IS 

C 

C  SUBROUTINE  FOR  INTRODUCTION  TO  ELECTRONIC  MAIL  HOSTS  (EMH> 

C 

12  CALL  AEMH(DUM) 

SO  TO  IS 

C 

C  ••••  SUBROUTINE  FOR  INTRODUCTION  TO  EMACS  -«»CURBENTLY  ENPTY»»- 

C 

13  CALL  AEMACSCDUM) 

SO  TO  15 

C 

C  SUBROUTINE  FOR  INTRODUCTION  TO  GRAPH  -••CURRENTLY  EMPTY^^- 

C 

14  CALL  ACRAPH(DUH) 

CO  TO  15 

C 

C  ••••  SUBROUTINE  FOR  BIBLIOGRAPHY 
C 

17  CALL  BILBOCDUH) 

GO  TO  15 
C 

C  ••••  SIGN-OFF  ROUTINE 

C 

500  TYPE  1240 
TYPE  1370 

READ<0S,130,ERR«S10>  DEMI 
510  STOP 
520  TYPE  1250 
TYPE  1370 

READ<05,130,ERR-530>  DEMI 
530  STOP 
C 
C 

c  ...•••••.. •••••••••MAIN  PROGRAM 

C 
C 
C 


•••  INTRODUCTION 


100  FORHATC//,'  WELCOME  TO  THE  DEFENSE  DATA  NETWORK 

•<DDN) THE  FOLLOWING  TUTORIAL  IS  DESIGNED  TO  ACQUAINT  YOU 
•WITH  VARIOUS  FEATURES  OF'./.*  THE  NETWORK,  PROVIDING  INSTRUCTIONS 
•AND  ALLOWING  YOU  TO  GAIN  SOME  DEGREE  OF',/,'  PROFICIENCY.  THE  TUT 
•ORIAL  IS  INTERACTIVE.'.//.'  ADDITIONAL  SOURCES  OF  INFORMATION  ON  T 
SHE  ODN  ARE  LISTED  IN  THE  WHERE  TO  GO'./.'  NEXT  SECTION  OF  THIS  TUT 
•ORIALL. ',//.'  ENTER  A  "q”  TO  QUIT.  ANY  OTHER  CHARACTER  TO  CONTINUE 
•;  ',•) 

C 

C  ••••  SELECTION  OF  AREA  OF  INSTRUCTION 
C 

110  FORMATC'  TO  BEGIN  THIS  SESSION,  SELECT  ONE  OF  THE  FOLLOWING  TOP 
•ICS: ' ,//, 

•'  1.  INTRODUCTION  (HELP. ? .ACTION) ', /, 

•'  2.  TOPS-20  EXECUTIVE  LEVEL  COMMANDS  (BASIC)',/, 

•'  3.  TOPS-20  EXECUTIVE  LEVEL  COMMANDS  (ADVANCED)',/, 

•'  4.  MESSAGE  PREPARATION.  SENDING.  READING  (MSG)',/, 

•'  S.  LINE  EDITOR  (XED)',/, 

•'  6.  FILE  TRANSFERRING  (FTP)',/, 

•'  7.  CONNECTING  TO  ANOTHER  COMPUTER  (TN)'./, 

•'  a.  COPYING  YOUR  WORK  (PHOTO)',/, 

•'  9.  REMINDERS  TO  YOURSELF/OTHERS  (REMIND)',/, 

•'  10.  FINDING  OUT  ABOUT  (INQUIR)',/, 

•'  11.  IDENTIFYING  YOURSELF/OTHERS  (FINGER)',/, 

•'  12.  ELE(rrRONIC  MAIL  HOSTS  (EMH)'./, 

•'  13.  SCREEN  EDITOR',/, 

•'  14.  GRAPHICS',/, 

•'  IS.  WHERE  TO  GO  FROM  HERE',/. 

•'  16.  QUIT',//) 

C 

120  FORMAT ('  ENTER  THE  NUMBER  CORRESPONDING  TO  YOUR  SELECTION,  FOLL 
•OWED  BY  A  <CR>!  ',*) 

C 

130  FORMAT(lAl) 

1240  FORHAT('  This  taralnaLsa  th«  TOPS-20  •ystaai  tutorial.',//) 

12S0  FORM  AT  ('  Sorry  to  mmm  you  quit  so  soon.',//) 

1370  FORMAT('  Entsr  any  ksy:  ',») 

1600  FORMAT(////) 

END 

C 

C 

C 


DIMENSION  INPUT(l).  SLCTN(2) 
TYPE  1600 


•*«  INTRODUCTION  TO  SYSTEM  HELP  AIDS 


TYPE  100 
TYPE  200 

READ (OS, 1400, ERR- 10)  INPUT 

IF<INPUT<1> .EQ. 'Q' .OR.INPUTd) .EQ. 'q' )G0  TO  520 


— INTRODUCTION  TO  HELP  AND  7 


TYPE  105 
TYPE  200 

REA0(0S,1400,ERR-13>  INPUT 

IF{INPUT<l).EQ.'Q'.OR.INPUT<l).EQ.'q')GO  TO  520 


•  INTRODUCTION  TO  DOCUMENTATION  AND  ACTION 


TYPE  110 
TYPE  200 

READ<05,1400,ERR-1S>  INPUT 

IF<INPUT<l).EQ.'Q'.OR.INPUT<l>.EQ.'q'>GO  TO  520 


••••  DEMONSTRATION 


TYPE  120 

READ(0S,1410,ERR>20>  SLCTN 

IF<SLCTN<l).EQ.'Q'.OR.SLCTN<l).EQ.'q')GO  TO  520 
IFCSLCTNd)  .EQ. 'HELP  '  .  AND.SLCTN(2>  .EQ. '  '.OR.SLCTNd) 

•'h«lp  ' .AHD.SLCTH<2) .EO. '  ')G0  TO  30 

IFCSLCTNdJ  .EQ. )G0  TO  40 

IFCSLCTNd)  .EQ.  'HELP  '  .  AND.SLCTN<2>  .EO. 'ACTIO'  .OR.SLCTNd) 
•p  ' .AND. SLCTN(2) .EQ. 'actio' >90  to  SO 
IF (SLCTN (1 ) . EQ . ' HELP  ' . AND . SLCTN (2) . EO . ' SYSTE ' . OR . SLCTN ( 1 > 
>p  ' . AND.SLCTN(2> .EQ. 'ayata' >G0  TO  60 
IF(SLCTN(1> .EO. 'QUIT' .OR.SLCTNd) .EO. 'quit' >G0  TO  500 
TYPE  135 
GO  TO  15 
TYPE  140 
GO  TO  15 
TYPE  150 
GO  TO  15 
TYPE  160 
GO  TO  15 
TYPE  170 
GO  TO  15 


EQ. 'hal 


.EO. 'hal 


I  11 


f  'll 


.  •••  -‘a  W 


....  SIGH-OFF  ROUTINE 

TYPE  1240 
TYPE  1370 

READ(0S.14OO.ERR-SlO>  INPUT 

RETURN 

TYPE  1250 

TYPE  1370 

REA0<0S,1400.ERR>S30>  INPUT 
RETURN 


•FORMATS  FOR  INTRODUCTION  SUBROUTINE* 


••••  INTRODUCTION 

FORMAT (12X.' HELP, ACTION.?  AND  DOCUMENTATION',//, 

•  '  Tha  ODN  natwork,  or  aora  apaciflcally  tha  Topa-20  aystaa, 
1  allowa  tha  uaar  to',/,'  racalva  halp  at  almost  all  lavala.  Tha  i 
2ollowlng  la  an  axplanatlon  and',/,'  daaonstration  o£  coaaanda  to  r 
Sacalva  halp  at  tha  Exacutlva  Laval,  but  tha  flrat',/,'  two  aay  ba 
4uaad  at  alaoat  any  tlaa.',//, 

S'  Notaa:'.//, 

6'  1.  You  ara  In  tha  axacutlva  laval  whan  you  firat  log  on  or  a 

•ftar  you  hava',/, 

7'  flnlahad  with  any  o£  tha  ayataa  routlnaa.  You  will  know  that  yo 
•u  ara  In  tha',/, 

8'  Exacutlva  Laval  bacauaa  tha  "0”  prompt  will  ba  dlsplayad  by  tha 
•ayataa. ' , // 

9,'  2.  Commands  nay  ba  antarad  using  althar  uppar  or  lowar  cssa 

•  lattars. ' , // , 

1'  3.  Coanands  balow  ara  praaantad  within  quotas.  This  Is  for 

2anphssls  only.',/,'  Tha  quotas  ara  not  antarad.',//) 

....  help 

FORMAT ('  Tha  HELP  Conaand : ' , // , 

1'  This  command,  by  itsalf,  will  glva  you  guldanca  on  how  to  gat  mo 
2ra  In  dapth',/,'  knowladga  on  a  particular  subjact.  It  is  Invoksd 
3  by  typing  "HELP”  aftar  tha  ',/,'  prompt,  followad  by  a  carrla 

•ga  raturn.',//, 

4'  Tha  ?  command:',//,'  This  command,  whan  Invokad  aftar  tha  "0"  pr 
Sompt,  or  almost  anywhara  alsa,'./,'  will  glva  you  a  nanu  of  approp 
Erlata  commands  from  which  to  salact.',//, 

7'  Tha  HELP  NAME  command:',//,'  This  coansnd  provldas  spaclflc  Info 
Brnstlon  on  tha  aubjact  nanad.  It  Is  invokad',/,'  by  typing  “HELP 
9  NAME"  followad  by  a  carrlaga  raturn  aftar  tha  "0“  prompt.',/,'  ”N 
•AME  is  tha  subjact  on  which  you  daslra  furthar  information.',//) 

....  DOCUMENTATION  &  ACTION 


format ('  documentation:',//,'  DOCUMENTATION  provldas  additional  in 
Iformatlon  about  spaclflc  aubjacts.  To  saa',/,'  tha  avallabla  sub] 
2acta,  typa  "DIR  <D0CUMENTATI0H>. . • . ."  aftar  tha  "0"  prompt,',/,'  f 


Sollowad  by  a  carriaga  raburn.  To  aaa  a  apacific  docuaanbation  fil 
4a.  antar',/.'  "TYPE  <D0CUMENTAT10N>FILENAME. FILETYPE" ,  followad  by 
5  a  carriaga  raturn;  FILENAME'./.'  and  FILETYPE  ara  thoaa  aa  ahown 
61n  tha  dlracbory . ' . 

7'  ACTION:'.//.'  Having  axhauatad  bha  abova  and  sbill  nob  aabiaflad 
8.  or  if  you  hava  coananba* ,/. '  aboub  bha  syabaa.  abc.  you  can  aand 
9  a  aaaaaga  bo  ACTION.  Tha  procadura  for'./.'  sanding  a  aassaga  is 
•  covarad  in  bha  MSG  sacbion  of  bhia  buborlal. ' .//> 

....  DEMONSTRATION  SELECTION 

FORMAT ('  To  aaa  a  danonabrabion  of  bha  abova  coanands.  bypa  ona  of 

1  bha  following  coananda' . / . '  afbar  bha  “0"  proapb.  followad  by  a  c 

2arriaga  raburn.'.//.'  HELP'.//.'  ?'.//.'  HELP  ACTION'.//, 

3'  QUIT',//,'  0'.*) 

FORMAT (//,'  YOU  HAVE  NOT  SELECTED  AN  APPROPRIATE  CHOICE',//} 

••••  HELP 

FORMATS'  HELP  coaaand  ••••',//.'  Tha  HELP  coaaand  prinba  halpful  d 
locuaanbablon  on  various  ayabaa'./,'  faaburaa.  Tha  "0"  is  prinbad 
2by  bha  ayabaa.  You  bypa  bha  raab.',/,'  of  bha  lina  followad  by  ca 
Srrlaga  raburn.',//,'  0HELP  NAME'.//.'  will  look  for,  and  prlnb  ou 
4b  inforaabion  aboub  bha  ayabaa  faabura'./,'  naaad  in  “NAME".  If  b 
Shis  la  your  firab  bias  using  bhia  ayabaa',/,'  plaasa  bypa:  HELP  SY 
6STEM-MESSAGES' ,//, '  ©HELP  7',//,'  will  give  a  liab  of  featuraa  fo 
7r  which  HELP  is  avallabla  and',/,'  rabypa  0HELP  bo  walb  for  any  ad 
Sdlblonal  Inpub. ',//,'  To  aaa  bhia  baxb  again  bypa  HELP  followad  by 
9  a  carriaga  raburn.',//,'  CEnd  of  HELP.HLP3 ' ,//> 

••••  AVAILABLE  WITH  HELP 

FORMAT<'  Coaaand,  ona  of  bha  following:',/,'  ACCESS',/,'  ADVISE',/ 
1,'  APPEND',/,'  ARCHIVE',/,'  ASSIGN',/,'  ATTACH',/,'  BACKSPACE',/,' 

2  BDDT',/,'  BLANK',/,'  BREAK',/,'  BUILD',/,'  CANCEL',/,'  CD',/,'  CL 
30SE',/,'  COMPILE',/,'  CONNECT',/,'  CONTINUE',/,'  COPY',/,'  CREATE' 
4,/,'  CREF',/,'  CSAVE',/,'  DAYTIME',/,'  DDT',/,'  DEASSIGN',/,'  DEBU 
5G',/,'  DECLARE',/,'  DEFINE',/,'  DELETE',/,'  DEPOSIT',/,'  DETACH',/ 
6,'  DIRECTORY',/,'  DISABLE',/,'  DISCARD',/,'  DISMOUNT',/,'  DO',/,' 
7ECH0',/,'  EDIT',/,'  ENABLE',/,'  END-ACCESS',/,'  EOF',/,'  ERUN',/,' 
8  EXAMINE',/,'  EXECUTE',/,'  EXPUNGE',/,'  FDIRECTORY' , / , '  FINGER',/, 
9'  FORK',/,'  FREEZE',/,'  GET'./,'  HELP',/,'  IDDT',/,'  INFORMATION', 
•/,'  KEEP',/,'  KKJOB',/,'  KMIC',/.'  LIST',/,'  LOAD',/,'  LOGIN',/,' 
ILOGOUT',/,'  MAIL',/,'  MAP',/,'  MERGE',/,'  MODIFY',/,'  MOUNT',/,'  N 
2AME',/,'  NO',/,'  ORIGINAL',/,'  PLOT',/.'  POP',/,'  PRINT',/.'  PUNCH 
3',/,'  PUSH',/,'  QDIRECTORY' ,/, '  R',/.'  RDIRECTORY' , / . '  RECEIVE',/, 
4'  REENTER',/,'  REFUSE',/,'  REMARK',/,'  RENAME',/,'  REPLACE',/,'  RE 
5SET',/.'  RETRIEVE',/,'  REWIND',/,'  RUN',/,'  SAVE',/,'  SET',/,'  SKI 
6P',/,'  START',/,'  SUBMIT',/,'  SYSTAT',/,'  TAKE',/,'  TALK',/,'  TDIR 
7ECT0RY',/,'  TERMINAL',/,'  TRANSLATE',/,'  TYPE',/,'  UNATTACH',/,'  U 
8NDECLARE' ,/, '  UNDELETE',/,'  UNKEEP',/,'  UNLOAD',/,'  UNMAP',/,'  VDI 
9RECT0RY' ,/, '  WDIRECTORY' , / , '  XPRESS',/,'  or  kapb  fork  naaa,',/,' 

.  or  "*L"',/,'  or  ayabaa  program  naae',//> 


C  ••••  ACTION 

C 

160  FORMAT ('  Th«  dlractory  <ACTION>  axists  t.o  racaiva  uaar  aaaaagaa 
Iconcarnlng  quaatlona, ' . / , '  auggaatlona,  docuaantatlon  or  probla 
2mm  with  subayataa  aoftwara,  ayataaa' '  oparation,  diractor 
31aa,  or  tarainala.  <ACTI0N>"a  aaaaaga  £tla  is  acannad',/,' 
4conatantly  during  tha  day,  and  all  raquaata  ara  aetad  upon  by  U 
Saar  Sarvlcaa' '  paraonnal '  Tha  purpoaa  of  thla  cantralizad 
6  Mailbox  la  to  Inaura  that:',//,'  1.  all  coaaanta  ara  raadlly 

Traeognizad  and  actad  upon.',//,'  2.  action  raquaata  ara  not  da 

Slayad  in  paraonal  aaaaaga  fllaa  dua  to',/,'  unaxpaetad  abaa 

9ncaa. ',//,'  Uhan  in  doubt  aa  to  whara  your  quaation,  auggaation,  a 
•tc,  ahould  ba  aant',/,'  to  <ACTION>.  Vour  coaManta  ara  alao  wale 
la.',//,'  Saa  MSG  aactlon  of  thia  tutorial  for  inatructiona  on  aand 
21ng  a  aaaaaga.',//) 

170  FORMAT ('  Uhanavar  a  uaar  loa  into  TOPS-20,  any  naw  ayataa  aaaaagaa 
1  ara  prlntad  on',/, 

2'  on  thair  taralnal .  Tha  purpoaa  of  thaaa  aaaaagaa  ia  to  infora  u 
3aara  of ' , / , 

4'  changaa  to  tha  ayataa.',//, 

S'  If  thia  la  your  firat  aaaaion,  tha  ayataa  did  not  diaplay  tha  na 
6w  ayataa ' , / , 

7'  aaaaagaa  to  you  yat.  On  tha  naxt  aaaaion  you  will  aaa  all  tha  a 
ayataa' , /, 

9'  aaaaagaa.  Thara  aay  ba  a  lot  of  aaaaagaa  bacauaa  wa  kaap  2  aont 

•ha  of' , / , 

1'  aaaaagaa  on  llna.  On  latar  aaaalona  you  will  aaa  only  tha  naw  a 
2aaaagaa. ' , //) 

C 

200  FORMAT ('  TYPE  Q  TO  QUIT,  ANY  OTHER  CHARACTER  TO  CONTINUE') 

C 

C  ••••  SIGN-OFF  ROUTINE  FORMATS 
C 

1240  F0RMAT<'  Thia  eoneludaa  tha  introduction  aaetion. ' , //) 

12S0  F0RMAT('  Sorry  to  aaa  you  quit  ao  aoon.',//) 

1370  FORMATC'  ENTER  ANY  KEY  TO  RETURN  TO  THE  MAIN  MENU:  ' ,•) 

1400  FORMAT  (lAl) 

1410  F0RMAT(2AS) 

1600  F0RMAT<////) 

END 


ooni-*  M  <r>  O'  in  in  in  woon  non  wionnnMM  noo  nnoonn 
oouiouiououi  ou  oin 


C 

SUBROUTIME  ELCKDUM) 

•••■BASIC  EXECUTIVE  LEVEL  COHMANOS  SUBROUTINE^^^^^^^^^«^> 
THIS  SUBROUTINE  EXPLAINS  AND  DEMONSTRATES  BASIC  COMMANDS 
USEFUL  AT  THE  EXECUTIVE  LEVEL  OF  THE  DDN/TOPS-20  SYSTEM. 


DIMENSION  INPUT(l) 

DUM^O 

NEXT^O 

INTRO  TO  CURSOR  COMMANDS 
TYPE  1600 

TYPE  1100:00  TO  200 
TYPE  11 10; GO  TO  200 
TYPE  11  IS; 60  TO  200 

INTRO  TO  DIRECTORY  RELATED  COMMANDS 

TYPE  1120; GO  TO  200 
TYPE  1125 
NEXT^NEXT-1 

READ(0S,1400,ERR^35>  INPUT 

QUERY  IF  USER  DESIRES  DEMONSTRATION 

IF<INPUT<l).EQ.'N'.OR.INPUT<l).EQ.'n')GO  TO  100 

DEMONSTRATION  SUBROUTINES 

CALL  DIRECT (DUN > 

GO  TO  200 
CALL  TYPEIDUM) 

GO  TO  200 
CALL  APPEND (DUM) 

GO  TO  200 
CALL  RENAME (DUN) 

CO  TO  200 
CALL  ARCHIVCDUM) 

GO  TO  200 
CALL  DELETE (DUM) 

GO  TO  200 
CALL  UNDEL(OUN) 

GO  TO  200 
CALL  EXPUNG(DUH) 

GO  TO  100 
0  NEXT^12 

INTRO  TO  SYSTEM  RELATED  COMMANDS 

TYPE  1200 
GO  TO  200 


105  TYPE  1205 
GO  TO  500 
C 

C  QUERY  TO  SEE  IF  USER  DESIRES  TO  CONTINUE 
C 

200  TYPE  1300 

NEXT-NEXT*! 

READ <05, 1400, ERR-20S>  INPUT 
TYPE  1600 

IF(INPUT<l).Ea.'N'.OR.INPUTCl).EQ.'n')GO  TO  520 
205  GOTO  (IS, 20, 25, 30, 35, 40, 45, SO, 55, 60, 65, 70, 10S>  NEXT 
C 

C  SIGN-OFF  ROUTINE 

C 

500  TYPE  1240 
TYPE  1370 

READ(05,1400,ERR-510)  INPUT 
510  RETURN 
520  TYPE  1250 
TYPE  1370 

REA0(0S,14OO,ERR-S3O)  INPUT 
530  RETURN 
C 

c 

c  ••••••FORHATS  FOR  BASIC  EXECUTIVE  LEVEL  COMMANDS  SUBROUTINE------- 

C 

C  --—  LISTING  OF  EXECUTIVE  LEVEL  COMMANDS 
C 

1100  FORMAT <20X, 'EXECUTIVE  LEVEL  COMMANDS  (BASIC)',//, 

1'  You  ar*  In  tha  Exoeutlva  (EXEC)  Laval  of  tha  TOPS-20  oparatlng  a 
2yataB  aftar',/, 

3'  you  log  on  or  aftar  axaeutlon  of  aystaa  routlnas;  notad  by  tha  d 
41aplay  of  *,/, 

-'  tha  "9"  proapt.  Coaaanda  hara  fall  Into  thraa  eatagorlas: ' , // , 
5'  1.  Curaor  Coaaanda',/, 

6'  2.  Dlractory-Ralatad  Coaaanda',/, 

7'  3.  Syataa-Ralatad  Coaaanda',//, 

6'  Tha  aora  baalc/aoat  of tan  uaad  of  thaaa  coaaanda  ara  praaantad  1 
9n  thla  aactlon',/,'  of  tha  tutorial.  Tha  raaaindar  ara  praaantad 
-In  aactlon  thraa.',//, 

1'  Notaa:',//, 

2'  1.  Tha  "  *  "  charactar  rafara  to  tha  control  (CTRL)  kay.',/, 

3'  2.  ESC  rafara  to  tha  aacapa  (ESC)  kay.',/, 

4'  3.  <CR>  rafara  to  tha  carrlaga  raturn  or  antar  kay.',/, 

5'  4.  DEL  rafara  to  tha  dalata  (DEL)  kay.',//> 

C 

C  ----  CURSOR  COMMANDS 
C 

1110  FORM AT <20X, 'BASIC  CURSOR  COMMANDS',//, 

1'  KEY  (a)  USE  (a)',//, 

2'  ESC  Thla  kay  uaually  coaplataa  a  coaaand  or  FllaNaaa.  On 

3ca  you  hava',/,'  typad  anough  of  a  coaaand  or  FllaNaaa 

4for  tha  ayataa  to  racognlza' , / , '  It,  typa  tha  Eacapa  ka 

Sy  to  coaplata  It.  If  you  havan''t  typad',/,'  anough,  t 

&ha  ayataa  alaply  baapa  and  walta  for  you  to  typa  aora.',//. 
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7'  CTRL  Umad  with  another  key  to  enter  a  conaand.  You  aay  ho 

81d  down  the',/,'  CTRL  key  aa  long  as  you  want,  but  shou 

91d  press  the  other  key  only',/,'  once  (the  saae  as  you 

■would  use  the  shift  key  on  a  typewriter}.',//, 

1'  “C  Used  to  abort  a  partially  typed  or  partially  coaplete 

2d  cossand  *,/,'  (sosetlsea  this  nay  require  several  ~C 

3s).  If  you  are  in  the  nlddle  ',/,'  of  a  progras,  typln 

4g  "C  will  return  you  to  the  EXEC  level.  (This  is',/,'  n 

Sot  usually  the  best  way  to  leave  a  progran) . ' , //> 

FORMAT ('  0  Prompt  for  the  EXEC  level.  (To  enter  this  cha 

Iractar  into  text,',/, 

2'  while  accessing  the  host  through  a  TAC,  type  it  twice 

•  --  the  system',/, 

•'  will  respond  with  a  third  “0“}.',//, 

3'  DEL  Delates  characters  from  right  to  left.',//, 

6'  '‘0  Stops  terminal  output.',//, 

•'  Deletes  words  from  right  to  left.',//, 

1'  “2  End-of-file.  Used  whenever  you  have  finished  enterin 

2g  data,  text,',/,'  messages,  etc.',//, 

3'  <CR>  Confirms  a  given  command.  Moat  commands  are  not  exec 

4utad  until  you',/,'  type  a  carriage  return.',//) 

LISTING  OF  DIRECTORY  RELATED  COMMANDS 

F0RMAT('  DIRECTORY-RELATED  COMMANDS',//, 

1'  A  complete  listing  of  Directory-Related  commands  can  be  seen  by 
2typlng  "?"',/,'  after  the  "R"  prompt.  The  following  is  a  listing 
3of  those  moat  often  used.',//, 

4'  Note:  A  filename  within  the  TOPS-20  system  la  composed  of  a  nam 
5a,  a  typa  and',/,'  a  generation  number.  Thus,  HOMEWORK. EXE. 5  is  a 
Sfile  with  a  name  of  "HOMEWORK",',/,'  a  type  of  "EXE"  and  is  the  fi 
7fth  generation.  In  the  following  eaterial,  we',/,'  abreviate  file 
8nama  with  "FN":  filetype  with  "FT";  generation  number  with  "NU” . ' , 
•//, 

S'  Command  Use  (a)',//, 

6'  DIRECTORY  Lists  the  names  of  all  of  your  fllea.',//, 

7'  TYPE  Typea  the  contents  of  a  file,',//, 

8'  APPEND  Appends  one  file  to  another',//) 

F0RMAT('  RENAME  Renames  a  file.',//, 

1'  ARCHIVE  Places  a  file  in  off-line  atorage . ' , // , 

2'  DELETE  Deletes  a  file  from  your  directory.',//, 

3'  UNDELETE  Puts  "DELETEd"  files  back  in  your  directory  unless  yo 
4u  have',/,'  "EXPUNGEd"  or  logged  off  or  occassionally , 

•if  the  system  crashs',/, 

5'  after  you  "DELETEd"  the  files.',//, 

6'  EXPUNGE  Permanently  erases  all  "DELETEd"  files.',//, 

7'  WOULD  YOU  like  A  DEMONSTRATION  OF  THE  ABOVE  COMMANDS  (Y  or  N>?', 
88) 

LISTING  OF  SYSTEM  RELATED  COMMANDS 

F0RMAT('  SYSTEM-RELATED  COMMANDS  (BASIC)',//, 

1'  System  related  commands  include:',//. 


2'  FINGER  SYSTAT  TALK  REF',/. 

3'  REC  INFO  DISK  INFO  NAIL  TER  NO  RAISE',//, 

4'  FINGER  and  SYSTAT  ara  discusaad  In  tha  following.  Tha  othara  ar 
4a',/,'  praaantad  in  tha  third  aaction  <T0PS-20  LEVEL  COHMANOS  -  AD 
5VANCED) .',//) 

C 

1205  FORMAT  <'  FINGER:'.//, 

1'  FINGER  la  uaad  to  find  out  Inforaation  about  a  spaclfic  usar,  an 
2d',/,'  la  Invokad  by  typing  “FINGER  USER  <CR>“  aftar  tha  "0“  proap 
3t  (USER',/,'  rafara  to  tha  account  naaa).',//, 

4'  SYSTAT:',//. 

5'  SYSTAT  ia  uaad  to  aaa  avaryona,  or  if  a  apacific  individual  ia  1 
•oggad  on  a',/, 

6'  apacific  hoat.  Typing  SYSTAT  aftar  tha  prompt  followed  by  a 

•  <CR>  will',/, 

7'  liat  avaryona  on  tha  nat.  To  aaa  if  a  particular  individual  la 
•on  tha  nat,',/, 

8'  typa  “SY  USER  <CR>“  aftar  tha  “0“  proapt.  Tha  ayataa  will  anawa 
■r  with  tha',/, 

9'  Job  Nuabar,  ate.  for  that  individual,  or  with  juat  an  "0“  proapt 
•.  Tha  lattar'./, 

1'  Indlcataa  that  tha  USER  ia',/,'  not  on  tha  nat.',//> 

C 

C  ••••  SIGN-OFF  ROUTINE 
C 

1240  F0RMAT<'  Thia  concludaa  tha  “baaic"  Exacutiva  Laval  Coaaand  aactio 
In  of  tha',/,'  tutorial.',//) 

1250  FORMAT ('  SORRY  TO  SEE  YOU  LEAVE  SO  SOON',//) 

1300  F0RMAT('  DO  YOU  WISH  TO  CONTINUE  (Y  or  N)?',*) 

1370  F0RNAT<'  ENTER  ANY  KEY  TO  RETURN  TO  THE  MAIN  MENU;  ',*> 

1400  FORHAT(Al) 

1600  F0RMAT<////) 

END 


V 


1 

V 

V:'' 

SUBROUTINE  DIRECT (DUN) 

.........OIRECTORY  SUB-SUBROUTINE* 

»  DEMONSTRATION  OF  VIEWING  YOUR  DIRECTORY  OF  FILES  LISTING 


DIMENSION  DEM0(2) .INPUT<1) 

NUM-O 
TYPE  100 

READ(0S,10S,ERR>1S)  DEMO 

IFtDEMOd) .EQ. 'Q' .OR.DEMOCl) -EO- 'q' )G0  TO  40 

IF<DEM0(1) .EQ. 'DIREC' .AND.DEM0(2) .EQ. 'TORY' .OR.DEMOCl) .EQ. 'dir«c' . 
1AND.DEH0(2> .EQ. 'tory' . OR . DEMO< 1 > . EQ. ' DIR' .AND.DEM0<2) .EQ. '  ' .OR.DE 
2M0<1> .EQ. 'dir' .AND.DEM0<2> .EQ. '  '>G0  TO  35 
NUM>NUM«1 

GO  TO  <20,25,30>NUM 

TYPE  110 

GO  TO  10 

TYPE  115 

GO  TO  10 

NUM*0 

TYPE  120 

READ<05,125.ERR*15)  INPUT 

IFdNPUTd)  .EQ.  '  Y' .OR.INPUTCl)  .EQ. 'y' )  GO  TO  5 
GO  TO  40 
TYPE  130 
RETURN 


r  .i 


•••«  FORMATS  FOR  DIRECTORY  SUB-SUBROUTINE* 


FORMAT (//'  DIRECTORY:',//, 

1'  Typing  in  "DIRECTORY''  or  }ust  "DIR"  aftor  the  "O"  prompt  followe 
2d  by  a  <CR>',/,'  will  list  tha  currant  contanta  o£  your  diractory. 
3  Giva  it  a  try.',//,'  B',s> 

FORMAT C 2 A5) 

FORMATC'  NOPE!  TRY  AGAIN.',//,'  S' ,91 
FORMAT!'  NOPE!  TRY  HARDER.',//,'  S' ,91 

FORMAT!'  What  you  ahould  hava  typad  in  after  the  "S"  prompt  waa:', 
1//,'  DIRECTORY  or  DIR',//,'  CARE  TO  TRY  AGAIN  !Y  or  N>?',S) 

FORMAT !A1) 

FORMAT!'  PS: < YOUR  ACCOUNT  NAME>',/, 


FORMAT!'  PS: < YOUR  ACCOUNT  NAME>',/, 

1'  SXED-MODE-FILESS . . 1  !Thia  file  controls  the  XED  editor',/, 

2'  !MSG . PROFILE) . 1  !ThiB  file  controls  the  MSG  system)',/, 

3'  FINGER. PLAN. 1' ,/, 

4'  HAS.ANY.l' ./, 

5'  MAIL.TXT. 1  !ThiB  file  controls  your  mailbox)',/, 

6'  REMIND. RMD. 1' ,/, 

T'  Total  of  23  pages  in  6  files',//, 

8'  The  sbove  is  what  you  would  see,  except  for  the  notes  to  the  rig 
9ht. ',//,'  NOTE:  NEVER  DELETE  ANY  OF  THESE  CONTROL  FILES  UNTIL  YOU 
•  ARE  FAMILIAR  WITH',/,'  THE  SYSTEM.',//) 

END 


IS  file  controls  your  mailbox)',/. 


c 


DIMENSION  DEMOO)  ,INPUT<1> 

NUM>0 

5  TYPE  100 

10  READ(0S,105.ERR>1S)  DEMO 

IF<DEM0(1} .EQ. 'Q' .0R.0EM0<1) .EQ. 'q'>C0  TO  40 

IF(DEM0(1) .EQ.'TYPE  ' .AND.0EM0<2> .EQ. 'FACE. ' .AND. DEMOO) .EQ. 'WHO.l 
1' .OR.DEMO(l) .EQ. 'type  ' .AN0.DEM0(2) .EQ. 'fac*. ' .AND. DEMOO) .EQ. 'who 
2.1')G0  TO  3S 
15  NUM-NUM«1 

GO  TO  (20,25.30)NUM 
20  TYPE  110 
GO  TO  lO 
25  TYPE  115 
GO  TO  10 
30  NUH>0 

TYPE  120 

REA0(05,125,ERR>15)  INPUT 

IFdNPUTd)  .EQ. 'Y' .0R.INPUT«1)  .EQ.'y' )  GO  TO  5 
GO  TO  40 
35  TYPE  130 
40  RETURN 

C 

C  ••••  FORMATS  FOR  THE  TYPE  SUB-SOBROUTINE»»»»»»»»»»»»»»»»»«»««»«»»» 

C 

100  FORMAT<//'  TYPE;',//, 

1'  Tha  "TYPE"  eo««and  ia  invokad  by  typing  "TYPE  FN.FT.NU  <CR>"  aft 
2ar  tha  "®"',/,'  prompt.  Try  TYPing  out  tha  eontanta  of  tha  FACE.W 
3H0.1  fila. ',//,'  9',») 

105  FORMAT < 3 A5} 

110  format;'  you  can  do  better  than  THAT',//,'  •',») 

115  format;'  why  D0N"T  you  take  ANOTHER  STAB  AT  IT',//,'  •',») 

120  format;'  What  you  ahould  hava  typad  in  aftar  tha  "0”  prompt  warn:', 

1//,'  TYPE  FACE.WHO.l' ,//, '  CARE  TO  TRY  AGAIN  ;Y  or  N)7',»> 

125  FORMAT ;A1) 

130  format; 

1 '  XXXXXXXXXXXXX  ' . / , 

2'  XXXXXXXXXXXXXXX  ',/, 

3'  XXXXXXXXXXXXXXXXX  ',/, 

5'  XXX  XXX  ',/, 

6'  XXX  XXX  ',/. 


7' 

XXX 

xxxx 

xxxx 

XXX 

',/. 

8' 

XX 

X  XX  X 

X  XX  X 

XX 

',/. 

9' 

XX 

X  XX  X 

X  XX  X 

XX 

',/, 

•  ' 

XXX 

xxxx  XXX  xxxx 

XXX 

' ./. 

1' 

XXX 

XXX 

XXX 

' ,/. 

2' 

xxxx 

XXX 

xxxx 

' ,/, 

3' 

xxxx 

xxxxx 

xxxx 

' ,/, 
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H  M  ^  m 


4' 

XXXX 

X  X 

XXXX 

5' 

XXXXXX 

XXX 

XXXXXX 

6' 

XXXXXXX 

XXXXXXX 

7' 

XXXXXXXX 

XX  XX 

XXXXXXXX 

8' 

X 

XXXXXXX 

X 

9' 

X 

xxxxx 

X 

»' 

X 

X 

1' 

X 

X 

2' 

XXX 

XXX 

'  .y. 

3' 

XX  XX 

XX  XX 

4' 

XX  xxxxxxxxxxx 

XX 

',7. 

5' 

X 

X  X 

X 

6' 

X 

X  X 

X 

7' 

X 

XX  XX 

X 

a'  xxxxx  xxxxx 

9'  XX 

•'  XX 

XX  XX  ' 

XX  XX 

xxxxx  • ./. 

XXX 

'  THE  FATHER  OF  YOUR  COUNTRY ... GEORGE  WASHINGTON' .// > 
END 


c 

SUBROUTINE  APPEND ( DUN > 


C 

C  ...............append  SUB-SUBROUTINE—.. 

C  >  DEMONSTRATION  OF  APPENDING  ONE  FILE  TO  ANOTHER 

C  .................................................... 

c 


DIMENSION  DEM0<6>.INPUT<1} 

NUM.O 

5  TYPE  100 

10  READ (05. 105. ERR. IS)  DEMO 

IF(DEM0(1} .EQ. 'APPEN' .AND.0EM0(2) .EQ. 'D  TEM' . AND.DEMOO) .EO. 'P2.F0 
1' .AND.DEM0(4) .EQ. 'R.l  T' .AND.DEMO(S> .EQ. 'EMPl. ' .AND.DEM0(6> .EQ. 'FO 
2R.1' .OR.DEMO(l) .EO. 'appan' .AND.DEM0(2> .EO.'d  taa' .AND.DEMOO) .EO. 
3'p2.fo' .AND.DEM0<4) .EQ. 'r.l  t' .AND.DEM0(5) .EQ. 'aapl. ' .AND.DEM0(6) . 
4E0.'for.l')G0  TO  35 
'S  NUM.NUM*! 

GO  TO  (20.25. 30) NUM 
20  TYPE  110 

GO  TO  10 
25  TYPE  115 

GO  TO  10 
30  NUM.O 

TYPE  120 

READ(05.12S.ERR.1S)  INPUT 

IF(INPUT(l).EQ.'Y'.OR.INPUT(l).EQ.'y')  GO  TO  5 
GO  TO  40 
35  TYPE  130 

40  RETURN 

C 

C  ....••.•FORMATS  FOR  THE  APPEND  SUB-SUBROUTINE..................... 

C 

100  FORMAT(//'  APPEND:',//, 

1'  Tha  "APPEND"  eoaaand  la  typad  aftar  tha  prompt,  followad  by 
2tha  film  to',/,'  ba  appandad,  followad  by  tha  flla  to  bo  appondod 
3to,  followad  by  a  <CR> .  i.a.',/,'  "APPEND  B.1.1  A.1.1<CR>"  will  ea 
4uaa  tha  contonta  of  tha  B  flla  to  ba  placad',/,'  in  tha  A  flla  at 
5tha  and.  Try  appandlng  TEMP2.FOR.1  to  TEMPI .FOR . 1 .',//, '  •',*) 

105  F0RMAT(6AS) 

110  F0RMAT('  OH  DEAR!  TRY  AGAIN.',//,'  «',») 

115  F0RMAT('  NOPE!  TRY  HARDER.',//,'  B',*) 

120  F0RHAT('  What  you  ahould  havo  typad  In  aftor  tha  "8"  prompt  waa:', 
1//,'  APPEND  TEMP2.F0R.1  TEMPI .FOR. 1 ',//, '  CARE  TO  TRY  AGAIN  (Y  or 
2N)7' ,B) 

125  FORMAT <A1) 

130  FORMAT!'  TEMP2.F0R.1  COK] ',//,'  THE  ABOVE  LINE  INDICATES  COMPLETIO 
IN  OF  THE  APPEND.',//) 

END 


SUBROUTINE  RENAME CDUH) 


..rename  SUB-SUBR0UTINE«»»««> 
DEMONSTRATION  OF  RENAMING  A  FILE 


DIMENSION  DEM0(4>.INPUT(1) 

NUM>0 
TYPE  100 

READ(0S.10S,ERR>1S)  DEMO 

IF<0EM0(1)  .EQ. 'Q' .OR.DEMOd)  .EQ.'q'>GO  TO  40 

IF(DEM0C1> .EQ. 'RENAM' .AND.DEM0(2> .EQ. 'E  TTT' .AND. DEMOO) .EQ. '..IT 
1' .AND.DEM0(4) .EQ. 'AT. .1' .OR.DEMOCl) .EQ.'ranaa' .AND.DEM0(2} .EQ. '•  t 
2tt'.  AND. DEMOO). EQ.'..l  t '  .  AND  .DEH0<4)  .  EQ. 'at . .  1 '  )C0  TO  35 
NUM>NUM*1 

GO  TO  (20.2S.30)NUM 

TYPE  110 

GO  TO  10 

TYPE  115 

GO  TO  10 

NUM>0 

TYPE  120 

REA0(05,125,ERR>1S)  INPUT 

IFdNPUTd)  .EQ. 'Y' .OR.INPUT(l)  .EQ. 'y' )  GO  TO  5 
GO  TO  40 
TYPE  130 
RETURN 


••••  FORMATS  FOR  THE  RENAME  SUB-SUBROUTINE- 


FORMAT  ('  RENAME.",//, 

1'  Tha  "RENAME"  coaaand  la  laauad  by  typing  "RENAME  <old)  FN.FT.NU 
2<naw)  FN.FT',/,'  <CR>"  aftar  tha  "8"  prompt.  Lat"B  giva  it  a  try 
3  by  ranaaing  TTT..1  to  TAT. . 1 .',//, '  B',s> 

FORMAT (4AS) 

FORMATC'  NOPE!  TRY  AGAIN.',//,'  0',*) 

FORMAT ('  NOPE!  TRY  HARDER.',//,'  0',8) 

FORMATC'  What  you  ahould  hava  typad  in  aftar  tha  ”0"  prompt  waa", 
1//,'  RENAME  TTT..1  TAT..1',//,'  CARE  TO  TRY  AGAIN  <Y  or  N)?',*) 
FORMAT (Al) 

FORMATC'  TTT..1  «>  TAT..1  COKJ',//,'  THE  LINE  ABOVE  SHOWS  US  THAT 
ITHE  RENAME  IS  COMPLETE.',//) 

END 


V'vS- 

I  < 

V.-V- 


DIMENSION  DEMO(3>,INPUT(l) 

NUM«0 
TYPE  100 

READ<0S,10S,ERR-1S>  DEMO 

IFCOEMO(l).Ea.'0'.OR.DEMO<l).EO.'q'>CO  TO  40 

irCDEMOCl) .EQ. 'ARCHI' .AND.DEM0<2> .EQ. 'VE  TA' . AND . DEMO 0> .EQ. 'T. .1' 
1. OR. DEMO (1) .EQ. 'archl' .AND.OEMO<2> .EO.'v*  ta' .AND.DEMOO) .EQ. .1 
2') GO  TO  35 
NUM«NaH*l 

GO  TO  (20,2S,30)NUM 

TYPE  110 

GO  TO  10 

TYPE  115 

GO  TO  10 

NUM>0 

TYPE  120 

REA0(05.125.ERR>15)  INPUT 

IFdNPUTCl)  .EQ.'Y' .OR.INPUTd)  .EQ.'y')  CO  TO  5 
GO  TO  40 
TYPE  130 
RETURN 

••••  FORMATS  FOR  THE  ARCHIVE  SUB-SUBROUTINB»»»«»»»«»»»« . . 

FORMAT(//'  ARCHIVE;',//, 

1'  Th«  ’'ARCHIVE*'  comaand  la  typad  aftar  tha  prompt  followad  by 
2  tha  FN.FT.NU' , / , '  <of  tha  flla  you  wlah  aavad  o£f-llna>  followad 
3by  a  <CR>.  Thua,  "ARCHIVE  ',/,'  FINGER. PLAN. 1  <CR>"  would  raquaat 
4  tha  Flngar  fila  ba  arehlvad.  Glva  it',/,'  a  try  by  ARCHIVElng  th 
Sa  TAT..1  fila.',//,'  •',») 

FORMAT <3A5) 

FORMAT('  Haaa.  I"LL  PRETEND  I  DIDN"T  SEE  THAT  WHILE  YOU  TRY  ACAI 
IN,',//,'  ■',») 

FORMAT('  NOPE!  TRY  HARDER.',//,'  9',a) 

FORMAT!'  What  you  ahould  hava  typad  in  aftar  tha  "B”  prompt  waa:', 
1//,'  ARCHIVE  TAT..1',//,'  CARE  TO  TRY  AGAIN  (Y  or  N>?',a> 

FORMAT (Al) 

FORMAT!'  TAT..1  CREQUESTED! ' , // , '  THE  ABOVE  LINE  INDICATES  THAT  TH 
IE  FILE  WILL  BE  ARCHIVED.'.//) 


c 

c 

SUBROUTINE  DELETE (DUN) 


C 

c  ...-.-delete  sub-subroutine——' 

c  .  demonstration  of  deleting  a  file 

c 
c 


dimension  DEM0<4} .INPUT<1> 

NUM-O 

5  TYPE  100 

10  READ(0S.10S.ERR.1S>  DEMO 

IF<DEM0(1> .EQ.'Q' .OR.DEMO(l) .EQ.'q'iCO  TO  40 

IF(DEM0(1> .EQ.'DELET' .AND.0EM0(2> .EQ. 'E  HAS' .AND. DEMOO) .EQ. ' .ANY. 
1' .AND.DEM0(4} .EQ. '1' .0R.DEM0<1) .EO. 'd«la^' . AND.DEM0(2> .EO. '•  haa'  . 
2ANO.DEMOO> .EO. ' .any. ' .AN0.0EM0(4>.E0. 'l')GO  TO  3S 
IS  NUH.NUH«1 

GO  TO  (20,2S,3O>NUM 
20  TYPE  110 

GO  TO  10 
25  TYPE  115 

GO  TO  10 
30  NUM-O 

TYPE  120 

READ(05,12S,ERR.1S)  INPUT 

IFCINPUTCl) .EQ. 'Y' .OR.INPUTCl) .EQ.'y')  GO  TO  5 
CO  TO  40 
35  TYPE  130 

40  RETURN 

C 

c  ••••••••FORMATS  FOR  THE  DELETE  SUB-SUBROUTINE . •••• . •••••• 

C 

100  FORMAT (//'  DELETE:',//, 

1'  Tha  “DELETE”  coanand  is  typsd  aftar  tha  ”0“  prompt  followad  by  t 
2ha',/,'  FN.FT.NU  (o£  tha  fila  you  wish  to  dalata)  followad  by  a  <C 
3R>.  la  "DELETE',/,'  FINGER. PLAN. 1  <CR>”  would  dalata  tha  Fingar  f 
411a.  Now  lt"a  your  turn.  Typa  In',/,'  tha  approprlata  command  to 
5  dalata  tha  HAS. ANY. 1  flla. ',//,'  S'.S) 

105  FORMAT (4AS) 

110  FORMATC'  TRY  AGAIN,  SWEETIE.  I  WON"T  TELL.',//,'  8',*) 

115  FORMATC'  ALRIGHT,  YOU  CAN  HAVE  ONE  MORE  CHANCE.',//,'  e',») 

120  FORMAT<'  What  you  should  hava  typad  In  aftar  tha  “0“  prompt  was:', 

1//.'  DELETE  HAS.ANY.l' .//, '  CARE  TO  TRY  AGAIN  (Y  or  N>?'.B> 

125  FORMATCAl) 

130  FORMATC'  HAS.ANY.l  COK) ',//,'  THE  ABOVE  LINE  INDICATES  THAT  THE  FI 
ILE  HAS  BEEN  DELETED.',//) 

END 

C 

C 
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SUBROUTINE  UNDEL(OUH> 


: . . . . . UNDELETE  SUB- SUBROUTINE— — • • ' 
DEMONSTRATION  OF  UNDELETING  A  FILE 


DIMENSION  DEMOO). INPUTCl) 

NUM«0 
TYPE  100 

READ (OS, 105. ERR* IS)  DEMO 

IF<DEMO<l).Ea.'a'.OR.DEMO(l).EO.'q')GO  TO  40 

IF(DEM0(1) .EQ. 'UNDEL' .AND.DEM0(2) .EQ. 'ETE  T' .AND. DEMOO) .EQ. 'AT. .1 
1'  .OR.DEMO(l)  .EG.  'undal'  .AND.DEM0<2)  .EG. 'at.*  t'  .AND. DEMOO)  .EG.  'at. 
2.1' )G0  TO  35 
NUM«NUM*1 

GO  TO  <20.2S.30)NUM 

TYPE  110 

GO  TO  10 

TYPE  115 

GO  TO  10 

NUM*0 

TYPE  120 

READ (05, 125. ERR* IS)  INPUT 

IF(INPUT(l).EO.'Y'.OR.INPUT(l).EQ.'y')  GO  TO  5 
GO  TO  40 
TYPE  130 
RETURN 


.........formats  for  undelete  sub-subroutine.......*.. . . 

FORMAT(//'  UNDELETE 

1'  Tha  "UNDELETE"  coaaand  ia  typad  aftar  tha  "0"  prompt  followad  by 
2  tha  FN.FT. NU' , / , '  (of  tha  file  you  wlah  raturnad  to  tha  dlraetory 
3)  followad  by  a  <CR>.  That  ia',/,'  "UNDELETE  FINGER. PLAN. 1  <CR>" 
4would  raturn  tha  Fingar  file.  Lata"a  give  it',/,'  a  try  by  UNDEL 
SETEing  the  TAT..1  file.',//,'  0',*) 

FORMAT (3A5) 

FORMAT('  NOPE!  TRY  AGAIN,',//,'  0',*) 

FORMAT('  ONCE  MORE  PLEASE.',//,'  0',*) 

FORMAT ('  What  you  ahould  have  typad  in  after  the  "0"  proapt  waa:', 
1//,'  UNDELETE  TAT..1',//,'  CARE  TO  TRY  AGAIN  (Y  or  N)7',*> 

FORMAT (Al) 

FORMAT!'  TAT,.l  tOK)',//,'  THE  ABOVE  LINE  INDICATES  THAT  THE  FI 
ILE  HAS  BEEN  RETURNED.'.//) 


SUBROUTINE  EXPUNG(DUM> 


......  .  .expunge  sub  -subroutine*  » — -  * 

DEMONSTRATION  OF  EXPUNGING  AN  ACCOUNT 


DIMENSION  DEM0(2),INPUT(1> 

NUM*0 
TYPE  100 

READ<0S,10S.ERR*1S}  DEMO 

IF(DEM0(1> .EQ. 'Q' .OR.OEHO(l) .EQ.'q'JGO  TO  40 

IFCDEMOd) .EQ. 'EXPUN' .AND. DEMO (2> .EQ . 'GE' . OR.DEHO ( 1 ) .EQ. 'axpun' .AN 
lD.DEM0(2}.EQ.'g«')G0  TO  35 
HUM-HUM*! 

GO  TO  (20,25,30)NUM 

TYPE  110 

GO  TO  10 

TYPE  115 

GO  TO  10 

NUH*0 

TYPE  120 

READ (05. 125, ERR- 15)  INPUT 

IFdNPUTCl)  .EQ. 'Y' .OR.INPUT(l)  .EQ. 'y' >  GO  TO  5 
GO  TO  40 
TYPE  130 
RETURN 

•.••••..-•-formats  for  expunge  sub-subroutine-.-----.-----.----.-- 

FORMAT <//'  EXPUNGE:',//, 

1'  This  eoanand  ia  typad  aftar  tha  ”•**  prompt  followad  by  a  <CR>. 
2Nu  FllaNama' ,/, '  la  raqulrad,  aa  it  parmanantly  araaaa  ALL  filaa  £ 
3or  which  you  had  pravloualy' ,/, '  laauad  the  "DELETE"  command.  Giv 
4a  it  a  try.',//,'  B',a) 

FORMAT <2A5) 

FORMATC'  NOPE!  TRY  AGAIN.',//,'  0',*) 

FORNATC'  NOPE!  TRY  HARDER.',//,'  0' ,0) 

FORMAT ( '  What  you  ahould  hava  typad  In  after  tha  "0”  prompt  waa:', 
1//,'  EXPUNGE',//,'  CARE  TO  TRY  AGAIN  <Y  or  N>7',a) 

FORMAT <A1) 

FORMATC'  PS:<YOUR  ACCOUNT  NANE>  CIO  PAGES  FREED! ',//,'  THE  ABOVE  L 
IINE  INDICATES  THAT  YOUR  DIR  HAS  BEEN  EXPUNGED.'.//) 


c  •••*  QUERY  TO  SEE  IF  USER  DESIRES  DEMONSTRATION  OF  TALK  COMMAND 

C 

READ<05,1400.ERR«49S)  INPUT 

IFCIMPUTd)  .EO. 'M*  .OR.lNPUTCl)  .EQ. 'n' )  GO  TO  520 

499  CALL  TALK(DUH) 

500  TYPE  1240 
TYPE  1370 

READ (05, 1400. ERR'SIO)  INPUT 
510  RETURN 
520  TYPE  1250 
TYPE  1370 

READ (05, 1400. ERR«530)  INPUT 
530  RETURN 
C 
C 

C  •••■FORMATS  FOR  ADVANCED  EXECUTIVE  LEVEL  COMMANDS  SUBROUTINE«^*>«^ 
C 

C  ••••  DEMONSTRATION  OF  EXECUTIVE  LEVEL  COMMANDS 
C 

1100  F0RMAT(20X.' EXECUTIVE  LEVEL  COMMANDS  (ADVANCED)',//. 

1*  You  arm  in  tho  Exccutlva  (EXEC)  L*v«l  of  th*  TOPS-20  operating  m 
• y ataa  af tar ' , / , 

2'  you  log  on  or  after  execution  of  syatea  routines.  You  are  In  th 
•la  level  whan',/, 

3'  the  syetan  proapta  you  with  the  “0**  proapt.  Coaaanda  at  this  le 
•val  fall  Into',/, 

4'  thrae  categories:',//, 

S'  1.  Cursor  Coaaanda',/, 

2.  Directory-Related  Conaands',/, 

7'  3.  Syetea-Ralated  Coaaanda',//, 

8'  The  aora  baalc/aoet  often  used  of  these  eoaaands  were  presented 
9ln  section  2',/,'  of  the  tutorial.  The  reaainder  are  presented 
•here. ' ,//, 

1'  Notes:',//, 

2'  1.  The  "  '  •'  character  refers  to  the  control  (CTRL)  key.',/, 

3'  2.  ESC  refers  to  the  escape  (ESC)  key.',/, 

4'  3.  <CR>  refers  to  the  carriage  return  or  enter  key.',/, 

5'  4.  DEL  refers  to  the  delete  (DEL)  key.',//) 

1110  FORM AT (20X. 'ADVANCED  CURSOR  COMMANDS',//, 


1'  KEY  (s)  USE  (s)',//, 

2'  "T  This  coaaand  can  be  used  to  satisfy  yourself  that  th 

3  systaa  Is',/,'  still  running.  For  exaaple.  If  the  sys 

4aa  Is  responding  slowly  and',/,'  you  type  “T,  Inforaatl 

Son  on  the  systaa  status  and  the  aaount  of',/,'  CPU  time 

6  you  have  used  since  you  logged  on  Is  displayed.',//, 

7'  “S  Freezes  typaout  on  the  screen  and  acts  as  a  No  Scroll 

8  key. ' ,//, 

1'  "0  Rasuaes  typeout  on  a  screen  that  was  stopped  by  a  'S 

2connand .',///) 

C 


c  ••••  DEMONSTRATION  OF  DIRECTORY  RELATED  COMMANDS 
C 

1120  F0RMAT('  DIRECTORY  RELATED  COMMANDS',//, 

1'  A  complete  listing  of  Directory  Related  commands  can  be  seen  by 
2typlng  after  the  ''B”  prompt.  The  following  la  a  listing 


ft  • 


nan 


3of  thosa  >ost  oftan  uaad. Not.a:  FK  •  FilaNaaa:  FT  •  FiiaTy 
4pa;  HU  •  FilaNuabar ' . , 

5'  Coaaand  Uaa  <a}',//, 

6'  SET  DIR  PASS  Thia  coaaand  changaa  your  paaaword . ' , / / , 

7'  PROTECTION  Tha  protaction  for  aach  fila  In  your  dlrac^ory  eona 
81at.a  of  a'./.'  aix-dlglt  nuabar  dlvldad  Into  thraa  groupa  of  two  d 
91glta  aach.  Tha',/,'  flrat  pair  rapraaanta  ownar  accaaa  to  tha  fll 
•a,  tha  aacond  pair  rapraaanta',/, 

1'  group  accaaa,  and  tha  laat  pair  rapraaanta  world  accaaa  to  tha  f 
•11a, ' ,/, 

2'  By  aattlng  tha  protaction  for  fllaa  In  your  directory,  you  can  c 
•ontrol  who ' , / , 

3'  can  accaaa  and/or  change  your  fllaa,  Tha  default  protaction  la  7 
•75200, ' ,/, 

4'  Thla  allowa  you  full  accaaa  <77) ,  naabara  of  your  group  partial 
•accaaa' ,/, 

5'  (to  Hat  your  directory,  and  to  read  and  axacuta  your  fllaa:  S2> 
• ,  and' , / , 

6'  prohlblta  all  other  uaara  froa  gaining  accaaa  to  your  fllaa  (00) 

•,',/, 

7'  For  aora  Info,  type  HELP  PROTECTION.',//) 

••••  DEMONSTRATION  OF  SYSTEM  RELATED  COMMANDS 

1200  F0RHAT<'  SYSTEM-RELATED  COMMANDS  (ADVANCED)',//, 

1'  Syataa  related  coaaanda  Include:',//, 

2'  FINGER  SYSTAT  TALK  REF',/, 

3'  REC  INFO  DISK  INFO  MAIL  TER  NO  RAISE',//, 

4'  FINGER  and  SYSTAT  wara  prevloualy  dlacuaaad.  Tha  othara  are',/, 
S'  preaantad  here.',//) 

1205  FORMAT  ('  ATTACH;',//, 

1'  ATTACH  Attachea  a  you  to  a  job.  For  axaapla,  if  you  some 

•how  get' , / , 

2'  detached  froa  your  directory  before  you  gat  a  chance  to  log  out, 

•  log  back',/, 

3'  In  to  tha  boat  and  ATTACH  youraalf  to  the  your  old  job  nuabar. 
•If  you  don''t',/.'  raaeaber  what  your  old  job  nuabar  waa,  juat  SYS 
•TAT  youraalf.',//, 

4'  TER  NO  RAISE.",//, 

5'  TER  NO  RAISE  Makaa  your  teralnal  accept  both  upper  and  lower  c 
6aaa' . /  '  lattara  If,  for  aoae  reaaon.  It  la  only  accepting  upper  c 
7aae',/,'  lettera. ' , // , 

8'  INFO  mail:',//, 

9'  INFO  HAIL  Aaka  the  ayatea  to  Hat  any  unlookad-at  aaaaagaa  in 

•  '/,'  your  aallbox. ' , //, 

1'  INFO  DISK:',//, 

2'  INFO  DISK  Liata  inforaation  about  your  currant  page  allocatio 
3n  for',/,'  dlractoriea  and  for  the  ayatea.',//) 

1210  FORMAT  ('  TALK;',//, 

1'  TALK  <uaar>  Craatea  a  coaaunlcatlon  link  with  another  uaar.  Uae 

•  thla  In  placa',/, 

2'  placa  of  a  aaaaage  If  the  other  uaar  la  logged  on  at  the  aaae  tl 
•ae  you  are.',/, 

3'  If  you  auddenly  aee  the  phraae  "LINK  FROM  <uaernane>''  appear  on 
•your  acrean,',/. 


•'  typ«  a  'C>  which  puta  a  hold  on  what  you  wara  doing.  You  can  the 
•n  talk  to  the',/,'  other  person  by  prefacing  your  lines  with  the  s 
•ysbol  !  or 
4'  BREAK:',//, 

S'  BREAK  This  coaaand  breaks  the  cossunlcation  link  with  the 

6  other',/,'  user.',//) 

1220  FORMAT ('  CONTINUE:',//, 

7'  CONTINUE  This  coseand  must  be  typed  by  the  person  who  was  in 

■tarruptad' , / , '  and  will  take  his/her  back  to  the  place  of  interrup 
•tion. ' , // , 

4'  REFUSE:',//, 

5'  REFUSE  If  you  do  not  wish  to  be  interrupted  while  you  are 

Bon  the',/,'  net,  type  REFUSE  in  your  L0CIN.CMD  file.',//, 

7'  RECEIVE:',//, 

S'  RECEIVE  If  you  don''t  Sind  people  talking  to  you  while  you 

9  are  on  the',/,'  net,  type  RECEIVE  in  your  L0GIN.CMD  file,',///, 

•'  WOULD  you  LIKE  A  DEMONSTRATION  OF  THE  ABOVE  COMMANDS  CY  or  N> 7  ' 

1240  FORMAT ('  THIS  CONCLUDES  THE  ADVANCED  EXECUTIVE  LEVEL  COMMANDS  SECT 
IION  ',/,'  OF  THIS  TUTORIAL.',//) 

12S0  F0RMAT('  Sorry  to  sea  you  quit  early.  Good  bya.',//> 

1320  F0RMAT('  NOTE:  YOU  HAY  QUIT  THE  FOLLOWING  DEMONSTRATION  AT  ANY  TIM 
2E  SIMPLY',/,'  BY  TYPING  A  “0  <CR>"  IN  RESPONSE  TO  ANY  PROMPT.',/) 
1330  FORMATS'  ENTER  A  "Q"  TO  QUIT,  ANY  OTHER  KEY  TO  CONTINUE:  ',*) 

1370  FORMAT ('  ENTER  ANY  KEY  TO  RETURN  TO  MAIN  MENU:  ',«> 

1400  FORMAT <1A1) 

1600  F0RMAT<////) 

END 


DIMENSION  DEMIO)  .INPUT(l) 

TYPE  1600 
NUM>0 
TYPE  120 

READ(0S,205,ERN«30)  DEMI 

IP<DEM1(1)  .EQ.'Q' .OR.DEMKl)  .EQ.'qMGO  TO  60 

IF(DEM1(1> .EQ. 'TALK  ' . AND. DEMI (2> .EQ.'TO  ED' . AND . DEMI 0> .EQ. 'ZEL' 
1.0R.DEN1<1) .EQ. 'talk  ' .AND. DEMI <2> .EQ. 'to  ad' . AND. DEMI 0> .EQ. 'za 
21')G0  TO  50 
NUM>NUM*1 

GO  TO  (35.40,45)  NUM 

TYPE  300 

GO  TO  30 

TYPE  310 

GO  TO  30 

TYPE  140 

TYPE  320 

READ (05,210.ERR>45}INPUT 

IF(INPUT<l).EQ.'0'.0R.INPUT<l).EQ.'q')G0  TO  60 
IFCINPUTCl)  .EQ. 'Y' .OR.INPUTd)  .EQ. 'y' )G0  TO  25 
NUH«0 

SIGN-OFF  ROUTINE 

TYPE  200 
TYPE  350 

READ(05,210,ERR*SS)  INPUT 

RETURN 

TYPE  340 

RETURN 


..............formats  FOR  TALK  SUBROUTINE**.**. 

****  DEMONSTRATION  OF  TALK/LINK  COMMANDS 

FORMATS'  To  initiata  a  convaraation  with  your  coworkar,  Edzel,  you 
1',/,'  flrat  typa  SY  EDZEL.  If  tha  ayataa  reaponda  with  Edzal''a  jo 
2b',/,'  nuabar,  you  know  ha  la  on  tha  nat,  and  can  now  typa  TALK  TO 
3  EDZEL.',/,'  Give  it  a  try:',//,'  »',•) 

FORMATS'  What  you  ahould  hava  typad  waa:  TALK  TO  EDZEL  <CR>',//> 
FORMATS'  If  you  ara  Edzal,  toiling  dillgantly  away  at  your  VDT,  yo 
lu',/,'  will  aaa  Sand  do)  tha  following:',//,'  ..tha  darivatlva  of 
2aquarLINK  FROM  <Y0UR  FRIEN0>',/,'  -c',/,'  J HI.. WANNA  GET  TOGETHER 
3AB0UT  1630  TO  DISCUSS  TOMORROW" S  BRIEFING?',/,'  ; Sure... meet  you 
4in  the  Rat''a  Neat!',/,'  IROG,  SEE  YOU  THERE.  BYE.',/,'  S  break',/ 
5/, 


7'  Did  you  notice  that  both  parties  typed  either  a  !  or  ;  to  cause 
•the  eyetee  to',/, 

8'  send  the  line?',//, 

9'  Invoking  the  CONTINUE  coeeand  at  this  point  will  place  you  back 
•to  where  you',/, 

1'  were  prior  to  the  link.  Such  as:',//, 

2'  ^continue' ,//, '  ..the  derivative  of  squer',//, 

3'  You  can  then  use  a  '^R  to  get  the  entire  line  to  reprint.',//, 

4'  This  concludes  the  deKonstrstlon  of  TALK/LINK.',//, 

5'  Reeesber  to  use  the  ‘*?‘*  any  tiae  you  are  not  quite  sure  what  the 
•  systea  is',/,'  asking  for.',//) 

:05  FORMAT  (3AS> 

110  FORMATClAl) 

100  FORMATC//'  NO.  TRY  AGAIN.',//) 

110  F0RMAT<//'  YOU  STILL  BLEW  IT.',//) 

120  FORMATC//'  CARE  TO  TRY  AGAIN  <Y  OR  N)?  ',S) 

140  FORMATC'  Sorry  to  see  you  quit  early.  Goodbye.',//) 

ISO  FORMATC'  PRESS  ANY  KEY  .  .  .',//) 

600  FORMATC////) 


IE  e: 


lESSi 


DIMENSION  INPUT ( 1 > , DEMI < 1 ) . DEM2 (2> . DEH3 (3 > , DEM7  C7 > 

••••  INTRODUCTION  TO  MSG 

TYPE  1600 
TYPE  1000 
TYPE  1300 

READ (OS. 1400. ERR«10)  INPUT 
TYPE  1600 

IF<lNPUT<l).EO.'N'.OR.INPUT(l).EO.'n')GO  TO  520 

MSG  COMMAND  LEVEL  COMMANDS 

TYPE  1010 
TYPE  1300 

READ(0S.1400,ERR«1S)  INPUT 
TYPE  1600 

IFdMPUTd)  .EQ. 'N' .OR.INPUTd)  .EG. 'n' )G0  TO  520 
TYPE  1020 
TYPE  1300 

READ(0S.1400.ERR«20}  INPUT 
TYPE  1600 

IF<INPUTd).EO.'N'.OR.INPUTd).EQ.'n')GO  TO  520 

COMMANDS  WITHIN  MESSAGE  PREPARATION 

TYPE  1030 
TYPE  1300 

REA0<0S.1400.ERR«21}  INPUT 
TYPE  1600 

IFdNPUTd).Ea.'N'.OR.INPUTd).EO.'n')GO  TO  520 
TYPE  1035 
TYPE  1300 

READ <05. 1400. ERR >22)  INPUT 
TYPE  1600 

IFCINPUTd)  .EG, 'N' .OR.INPUTd)  .EG. 'n' )G0  TO  520 
SEND.  GUEUE  OR  7 


TYPE  1038 
TYPE  1320 

READ(0S.1400.ERR>2S}  INPUT 
TYPE  1600 

IFCINPUTd)  .EG. 'N' .OR.INPUTd)  .EG. 'n' )G0  TO  520 


••>>  DEMO  -  ENTRY  INTO  BSC 


2S  NUH>0 

30  TYPE  1040 

32  REA0(bs,1410,ERR>30>  DEHl 

TYPE  1600 

ZrCDEMKl)  .EO. 'Q' .OR.DEMl  (1>  .EQ. 'q' >C0  TO  520 
IF(DEMl(l}.EQ.'KSG'.0R.DEHl(l).EQ.'as9'>G0  TO  50 
NUH*HUH*1 

GO  TO  (35,40,45}  HUH 
35  TYPE  1340 
TYPE  1500 
GO  TO  32 
40  TYPE  1350 
TYPE  1500 
GO  TO  32 
45  TYPE  1045 
TYPE  1360 

READ (05, 1400, ERR>45)  INPUT 
TYPE  1600 

IFdMPUTd}  .EQ. '0' .0R.INPUT(1>  .EQ. 'q' )G0  TO  520 
IFdMPUTd)  .EO. 'Y' .OR.IMPUTd}  .EQ. 'y' )G0  TO  25 
C 

c  DEMO  -  SEND 

C 

50  NUH>0 

55  TYPE  1050 

57  READ (05, 1400,  ERR>5S)  INPUT 

TYPE  1600 

IFdNPUTd)  .EO. '0' .OR.INPUTd}  .EQ. 'q' )G0  TO  520 
IF(INPUT(1).EQ.'S'.0R.INPUT(1}.EQ.'«')G0  TO  75 
NUM-NUM*! 

GO  TO  (60,65,70)  NUM 
60  TYPE  1340 

TYPE  1505 
GO  TO  57 
65  TYPE  1350 

TYPE  1505 
GO  TO  57 
70  TYPE  1055 

TYPE  1360 

READ (05, 1400, ERR=70)  INPUT 
TYPE  1600 

IFdNPUTd)  .EQ. 'Q' .OR.INPUTd)  .EQ. 'q' )G0  TO  520 
IFdNPUTd)  ,E0. 'Y' .OR.INPUTd)  .EQ. 'y' )C0  TO  50 
C 

C  DEMO  -  CONFIRMATION 

C 

75  NUM-0 

80  TYPE  1060 

82  READ(0S,1400,ERR<80>  INPUT 

TYPE  1600 

IFdNPUTd)  .EQ. '0' .OR.INPUTd)  .EQ. 'q' )C0  TO  520 
IFdNPUTd)  .EQ. 'Y' .OR.INPUTd)  .EQ. 'y' >G0  TO  100 
NUH^NUH^l 


TYPE  1340 
TYPE  1510 
GO  TO  82 
TYPE  1350 
TYPE  1510 
GO  TO  82 
TYPE  1065 
TYPE  1360 

READ  (05. 1400.  ERR>95>  INPUT 
TYPE  1600 

IF<INPUT<l).EQ.'0'.OR.lNPUT<l).EO.'q')CO  TO  520 
IFdNPUTd)  .EQ. 'Y' .OR.IMPUTd)  .EQ. 'y'lGO  TO  75 

••••  DEMO  -  MESSAGE  PREPARATION  “T0“ 

NUM«0 
TYPE  1070 

REA0(0S.14S0.ERR«105)  DEM2 
TYPE  1600 

IF<DEM2d>  .EQ. 'Q' .0R.DEM2d>  .EQ. 'q' >G0  TO  520 
IF<DEM2d}  .EQ.' JONES'  .AND.DEM2(2>  .EQ.'KF'  .0R.DEM2d>  .EO. '  jona 
>D.DEM2(2) .EQ. 'kf ' )GO  TO  125 
NUM>NUN*1 

GO  TO  (110. 115. 120)  NUM 

TYPE  1340 

TYPE  1515 

GO  TO  107 

TYPE  1350 

TYPE  1515 

GO  TO  107 

TYPE  1075 

TYPE  1360 

READ(05.1400.ERR>120}  INPUT 
TYPE  1600 

IFdNPUTd)  .EQ. 'Q' .OR.INPUTd)  .EO.'qdGO  TO  520 
IF(INPUT(l).EQ.'Y'.OR.INPUT(l).EO.'y')CO  TO  100 

•  •••  DEMO  -  MESSAGE  PREPARATION  "cc” 


NUM-0 
TYPE  1080 

READ(0S.14S0.ERR>130)  DEH2 
TYPE  1600 

IF(DEM2(1) .EQ. '0' .0R.DEM2(1> .EQ. 'q' )G0  TO  520 

IF(DEH2(1) .EQ. 'WILLB' . AND . DEH2(2> . EQ. ' E' .0R.DEM2d> .EQ. 'wlllb' 
•.0ER2(2) .EQ. )G0  TO  150 
NUM>NUH«1 

GO  TO  (135.140.145)  NUM 

TYPE  1340 

TYPE  1520 

GO  TO  132 

TYPE  1350 

TYPE  1520 

GO  TO  132 

TYPE  1085 


TYPE  1360 

REA0C05,1400,ERR-145)  INPUT 
TYPE  1600 

IF(INPUT<1).EQ.'Q'.0R.INPUT<1).E0.'<J')C0  TO  520 
IF<IMPUT(l).EQ.'Y'.OR.lMPUT<l).EQ.'y')GO  TO  125 
C 

C  DEMO  -  MESSAGE  PREPARATION  “SUBJECT" 

C 

150  NUM>0 
155  TYPE  1090 

157  READ (05. 1450. ERR> 155)  DEM2 

TYPE  1600 

IF(DEM2(1) .EQ. '0' .0R.0EH2<1> .EQ. 'q')GO  TO  520 

IF(DEH2(1> .EQ. 'PASCA* .AND.DEM2(2> .EQ. 'L' . OR. DEH2 ( 1 > .EQ. 'paaea' .AND 
•.DEM2<2>.EQ.'1')G0  TO  175 
NUH>NUH*1 

GO  TO  (160.165.170)  NUM 
160  TYPE  1340 
TYPE  1525 
GO  TO  157 
165  TYPE  1350 
TYPE  1525 
GO  TO  157 
170  TYPE  1095 
TYPE  1360 
TYPE  1600 

READ (05. 1400, ERR- 170)  INPUT 

IFdNPUTd)  .EQ. '0' .OR.INPUT(l)  .EQ.'q')GO  TO  520 
IFdNPUTd)  .EQ. 'Y' .OR.INPUT(l)  .EQ. 'y' )G0  TO  150 
C 

C  ••••  DEMO  -  MESSAGE  PREPARATION  "MESSAGE" 

C 

175  NUM-0 
180  TYPE  1100 

162  READ (05. 1430. ERR-180)  DEM? 

TYPE  1600 

IF(DEM7(1)  .EQ. 'Q' .0R.DEM7(1)  .EQ.'qdGO  TO  520 

IF(DEH7(1) .EQ. 'WHAT  ' . AND.DEM7(2) .EQ. 'PASCA' . AND.DEH7(3} .EQ. 'L  LAN 
1' .AND.DEM7(4) .EQ. 'GUAGE' . AND.DEM7(S) .EQ. 'S  ARE' .AND.DEM7(6> .EQ. '  A 
2VAI' . AND.DEN7(7) .EQ. 'LABLE' .0R.DEH7d) .EQ. 'what  ' .AND.DEH7(2) .EQ. ' 
3paaca' .AND.DEH7(3) .EQ. '1  Ian' . AND.0EM7 (4) . EQ. ' quage' .AND.DEH7(5) .E 
4Q.'a  ara' .AND.0EH7(6) .EQ. '  aval' .AND. DEM7(7) .EQ. ' labia' )C0  TO  200 
NUM-NUM*! 

GO  TO  (185,190,195)  NUM 
185  TYPE  1340 
TYPE  1530 
GO  TO  182 
190  TYPE  1350 
TYPE  1530 
GO  TO  182 
195  TYPE  1105 
TYPE  1360 

READ(05,1400,ERR«195)  INPUT 
TYPE  1600 

IFdNPUTd)  .EQ. '0' .OR.INPUTd)  .EQ. 'q' )G0  TO  520 


IF  (INPUTd)  .EG. 'Y' .0R.INPUT<1>  .EQ. 'y' )G0  TO  175 
C 

c  DEMO  -  MESSAGE  PREPARATION  ’'QUEUE'* 

C 

200  NUM>0 
205  TYPE  1110 

207  READ(05,1400,ERR-205}  DEMI 

TYPE  1600 

IFCOEMKD.EQ.'Q'.OR.OEMKD.EQ.'d'lGO  TO  225 
NUM>NUM«1 

GO  TO  (210,215.220)  HUM 
210  TYPE  1340 
TYPE  1535 
GO  TO  207 
215  TYPE  1350 
TYPE  1535 
GO  TO  207 
220  TYPE  1115 
TYPE  1360 

READ(0S.1400.ERR>220)  INPUT 
TYPE  1600 

IFdNPUTd)  .EG. '0' .OR.INPUTCl)  .EQ.'q')GO  TO  520 
IFClNPUTd) .EG. 'Y' .OR.INPUTCl) .EG. 'y' >G0  TO  200 
C 

C  ••••  DEMO  T  (TYPE)  COMMAND 

C 

225  NUM«0 
230  TYPE  1120 

237  READ (05. 1400, ERR >230)  INPUT 
TYPE  1600 

IFdNPUTd)  .EG. '0' .OR.INPUTd)  .EQ.'q' )G0  TO  520 
IFdMPUT(l).EQ.'T'.OR.lNPUT(l).EQ.'t')60  TO  250 
232  NUM-NUM*! 

GO  TO  (235,240,245)  NUM 
235  TYPE  1340 
TYPE  1505 
GO  TO  232 
240  TYPE  1350 
TYPE  1505 
GO  TO  232 
245  TYPE  1125 
TYPE  1360 

REAO(05,1400,ERR>245)  INPUT 
TYPE  1600 

IFdNPUTd)  .EG.'Q' .OR.INPUTd)  .EG.'qdCO  TO  520 
IFdNPUTd)  .EG. '  Y' .OR.INPUTd)  .EG. 'y' )G0  TO  225 
C 

C  DEMO  -  MESSAGE  SEQUENCE  COMPLETION  (ONE  MESSAGE) 

C 

250  NUM«0 
255  TYPE  1130 

257  READ (05, 1440, ERR *255)  DEMI 

TYPE  1600 

IF(DEM1  (1)  .EG. 'G' .OR.DEMld)  .EG. 'q' )G0  TO  520 
IF(DEM1 (1) .EG. '14' >G0  TO  275 


NUM»NUM»1 

GO  TO  C260, 265.270}  NOK 
260  TYPE  1340 
TYPE  1540 
GO  TO  257 
265  TYPE  1350 
TYPE  1540 
GO  TO  257 
270  TYPE  1135 
TYPE  1360 

READ (05. 1400, ERR>270)  INPUT 
TYPE  1600 

IF<INPUT<l).EQ.*Q'.OR.INPUT<l>-EQ.'q')GO  TO  520 
IFdNPUTd)  .EO.  *Y' .OR.INPUT(l)  .EQ. 'y' )G0  TO  250 
C 

C  DEMO  -  H  (HEADERS)  COMMAND 

C 

275  NUM'O 
280  TYPE  1140 

282  READ (05. 1400. ERR«280)  INPUT 

TYPE  1600 

IF(INPUT(1).EQ-'Q' .OR.INPUT(l)-EQ.'q'>GO  TO  520 
IFdNPUTd)  .EQ. 'H' .OR.INPUTd)  .EO. 'h' )G0  TO  300 
NUM'NUM*! 

GO  TO  (285,230.295)  NUM 
285  TYPE  1340 
TYPE  1505 
GO  TO  282 
290  TYPE  1350 
TYPE  1505 
GO  TO  282 
295  TYPE  1145 
TYPE  1360 

READ(05,1400,ERR>295)  INPUT 
TYPE  1600 

lF(INPUT(l).E0.'0'.0R.INPUT(l).E0.'q')G0  TO  520 
IFdNPUTd)  .EQ. 'Y' .OR.lNPUTd)  .EO.'y' )G0  TO  275 
C 

c  DEMO  -  MESSAGE  SEQUENCE  C) 

C 

300  NUH«0 
305  TYPE  1150 

307  READ (05, 1460, ERR >305)  DEMI 

TYPE  1600 

IF(DEM1 d) .EO. '0' .OR.DEMl (1) .EQ. 'q' )G0  TO  520 

IF(DEM1(1) ,EQ. '10:15' )G0  TO  325 

NUM>NUH>1 

GO  TO  (310,315,320)  NUM 
310  TYPE  1340 
TYPE  1545 
GO  TO  307 
315  TYPE  1350 
TYPE  1545 
GO  TO  307 
320  TYPE  1155 
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TYPE  1360 

READ <05. 1400, ERR- 320)  INPUT 
TYPE  1600 

IF<INPUT<l).EO.'0'.OR.INPOT<l).EO.'q'>CO  TO  520 
IF<lNPUT<l).EO.'Y'.OR.INPUT<l>.EO.*y'>00  TO  300 

325  NUM-0 
330  TYPE  1160 

500  TYPE  1240 

TYPE  1370 

READ (05, 1400. ERR*510>  INPUT 
510  RETURN 
520  TYPE  1250 
TYPE  1370 

READ<05,1400,ERR»530)  INPUT 
530  RETURN 
C 
C 

c  ■•««FORHATS  FOR  MSG  SUBROUTINE-———-—*********************** 

C 

C  INTRODUCTION 

C 

1000  FORMATC  NSC',//. 

1'  RSG  is  «  program  %#hich  allows  t.ha  uaar  to  crsata»  aandp  fils  and 
2  raad',/,'  ••aaagaa  (rafarrad  to  alao  aa  aail).  A  Hating  balow  p 
3rovldaa  tha',/,'  eoaaanda  which  aay  ba  uaad  within  MSG,  Thay  aay 
4alao  ba  aaan  from',/,'  within  MSG  by  typing  a  aftar  tha  a 

Sag  proapt.',/, 

6'  Tha  following  ia  a  aaapla  aaaaaga: '  , // , 

7'  <aag.  #  34,  279  chara)',/, 

8'  Nail-Froa:  JONESKD  craatad  at  16-0ct-a5  19:13:01',/, 

9'  Data:  16  Oct  1985  19:13:01  EDT',/, 

.'  Froa:  JONESKDeUSC-ISI.ABPA',/. 

1'  Subjaet:  REQUESTED  INFORMATION',/, 

2'  To:  HIDONJKBUSC-ISI.ABPA',/, 

3'  cc:  FLEMNINGPW8USC-1SI.ARPA,  JONESKDiUSC-ISI . ARPA' , // , 

4'  Thank  you  vary  auch  for  your  quick  raaponaa . ' , / / , 

5'  Tha  aaaaaga  itaalf  ia  coapriaad  of  varioua  fialda,  or  parta.  Th 
6ay  ara',/,'  rafarrad  to  aa  Data  Flald,  To  Fiald,  Froa  Fiald,  Subia 
7ct  Fiald,  ate.',/,'  Each  fiald  la  antarad  aaparataly,  allowing  tha 

8  uaar  to  viaw  tha  fialda',/,'  aaparataly,  auch  aa  juat  Hating  tha 

9  aubjacta  of  aoaa  or  all  aaaaagaa , ' , / : 

C 

C  *«**  MSG  COMMAND  LEVEL  COMMANDS 
C 

1010  FORMATC'  MSG  COMMAND  LEVEL  COMMANDS',//, 

•'  COMMAND  Uaa',//, 

1'  A  Anawar  a  aaaaaga',/, 

2'  B  Back  up  to  pravioua  aaaaaga',/, 

3'  *  Back  up  to  pravioua  aoaaaga',/, 

4'  *H  Back  up  to  pravioua  aaaaaga',/, 

S'  C  Currant  aaaaaga',/, 

6'  D  Dalata  a  aaaaaga',/, 

7'  E  Exit  and  updata  aaaaaga  flla',/, 

9'  F  Forward  a  aaaaaga',/, 

•'  C  Go  to  aaaaaga  nuabar',/. 
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1'  H  Haadars',/, 

2'  I  Incluaion  of  langth  of  haadar',/, 

3'  J  Jump  Into  lowar  fork',/, 

4'  K  Konclsa  -  provlda  ahortar  prompting',/, 

S'  L  Liat  of  aaaaagaa',/, 

6'  H  Nova  a  aaaaaga  into  a  fila  (dalataa  it  aa  a  aaaaaga)',/, 

7'  N  Naxt  aaaaaga  nuabar',/, 

8'  0  Ovarwrita  old  fila',/> 

1020  FORMAT <'  COMMAND  USE*,//, 

1'  P  Put  a  aaaaaga  into  a  fila  (laavaa  it  aa  a  aaaaaga  alao) ' 

2./, 

3'  0  Quit  ^  raturn  to  oparating  ayataa  without  updata  of  aag 

4fila' ,/, 

4'  R  Raad  in  a  fila',/, 

5 '  S  Sand  a  aaaaaga ' , / , 

6'  T  Typa  a  aaaaaga',/, 

7'  U  Undalata  a  aaaaaga',/, 

8'  V  Varboaa  -  providaa  aora  prompting',/, 

9'  W  Writa  fila  aortad  by  aaaaaga  arrival  tlaa',/, 

•'  X  XED  -  antar  XED',/, 

1'  Z  Zap  proflla',/, 

2'  ''  Harka  aaaaaga  aa  axaalnad',/, 

3'  -  Marka  aaaaaga  aa  not  axaainad',/, 

4'  (ayataa  talla  you  upon  antry  if  you  hava  ’’not~axanlnad  a 

Saaaagaa" ) ' , / , 

7'  dlaplay  currant  tlaa  and  data',/, 

8*  7  Typa  tha  command  charactar  for  Ita  daacription,  7  alona 

9for  auaaary',/, 

• '  ;  Coaaant ' , / , 

1'  '^N  Abort  aaaaaga',/, 

2'  "Z  Maaaaga  eoaplatlon' ,/> 

C 

c  >><>  COMMANDS  WITHIN  NESSACE  SEQUENCE 
C 

1030  F0RMAT<'  COMMANDS  WITHIN  MESSAGE  SEQUENCE:',//, 

1'  If  you  aak  tha  ayataa  to  typo  out  a  aaaaaga  (T  typo)  or  output  h 
Zoadora' , / , 

3'  (H  haadara) ,  ate.  tha  ayataa  will  aak  you  for  tha  aaaaaga  aoquon 
4co.',/,'  Uaually,  all  you  doaira  la  ono  aaaaaga,  ao  you  ^uat  typa 
Sthat  aaaaaga',/,'  nuabar  followod  by  a  carrlaga  raturn.  In  aoaa  i 
6natancoa  you  may  daaira',/, 

7'  to  hava  aora  than  ono,  poaalbly  a  atrlng  of  aaaaaga  haadara  or  t 
8wo  ',/,'  difforant  aaaaagaa.  Tha  following  doacribaa  the  procodur 
Soa  for  varloua',/,'  aoana  of  anaworlng  tha  (Maaaaga  Saquenca>  pro 
•apt. ' ,//, 

1'  1.  Any  alngla  nuabar',/, 

2'  2.  Maaaaga  nuabar  ranga  (io  nuabar  <8oparator>  nuabar,  whore  ae 
3parator ' , / , '  ia  ono  of  tha  following:',/, 

4'  COMMAND  USE',/, 

5'  >  graator  than  020  •  output  aaga  with  nuabar  graater  t 

Ghan  20)',/, 

7'  :  through  (15:20  •  mags  15  through  20)',/, 

8'  (20:15  •  saaa  maga,  but  in  inverae  ordor 

9) ' ./) 

1035  FORMAT (' 


COMMAND  USE',//. 


•'  .  saga  atatad  (24.7  «  aag  24  followad  by  aag  7)',/, 

4'  Esc  eurranb  aaaaaga'./, 

5'  "I  laat  aaquanca  apaci^iad ' , / , 

6'  A  All  aaaaagaa  or  haadara',/, 

7‘  0  Dalatad  aaaaagaa  or  haadara'./. 

S'  E  Exaalnad  aaaaagaa'./. 

9'  F  at.rlng  aaareb  o£  haadara'./. 

»'  L  Laab  aaaaaga  aaquanca'./. 

1'  M  Hot.  axaalnad  (nob  aaan>  aaaaagaa',/, 

2  '  I  In var aa  ordar ' . / . 

3'  0  Old  aaaaagaa/haadara' . /, 

4'  R  Racanb  aaaaagaa  only',/. 

S'  S  abrlng  aaareb  o£  aub3acb’,/, 

6'  U  Undalabad  aaaaagaa',/) 

C 

c  •••>  SEND,  QUEUE  OR  ? 

C 

103a  F0RMAT('  SEND.  QUEUE  JR  7',//. 

1'  A£bar  you  hava  coaplabad  byplng  bha  body  o£  a  aaaaaga,  which 
2you  hava',/,'  algnalad  bo  bha  ayabaa  wlbh  a  ’"‘Z’*,  bha  ayabaa  will 
3proapb  you  wlbh  a  ',/,'  “QUEua,  SEND  or  7".  Thia  ia  aaklng  If  you 
4  wanb  bha  aaaaaga  aanb  (do  lb'./,'  now  whlla  I  walb) ,  quauad  (do  1 
Sb  ab  bha  ayabaaa  convanlanca)  or  7  ',/,'  (provldaa  halp>.',/> 

C 

C  DEMO  -  ENTERING  XED 

C 

1040  FORMAT ('  NOTE:  YOU  NAY  QUIT  THE  FOLLOWING  DEMONSTRATION  AT  ANY  TI 
IME,  SIMPLY  BY',/.'  TYPING  A  “Q“  FOLLOWED  BY  A  CARRIAGE  RETURN,  IN 
2REPLY  TO  ANY  OF  THE  PROMPTS.',//, 

•  'OK.  Hara  wa  go.  Flrab  off,  wo  naad  bo  gab  froa  bha  Exoc 

lublva  Coaaand  laval',/,'  bo  bha  MSG  eoaaand  lavol.  To  do  bhla,  wa 
2  bypo  MSG  afbar  bha  "•**  proapb,',/,'  followad  by  a  <CR>.  Clva  lb 
3a  bry . ' , / , 

4'  Soo  bha  XED  porblon  of  bhla  buborlal  for  bha  adlblng  coaaanda,  b 
•hay  work  hara',/, 

5'  aa  wall.',//,'  9',*) 

104S  F0RMAT<'  Whab  you  ahould  hava  bypod,  waa:  MSG  <CR>',//> 

C 

c  ••••  DEMO  -  SEND 
C 

1050  FORMAT ('  MSG  --  voralon  of  07  Sop  1983',/, 

1'  Typa  7  for  holp,  7  #  for  nawa',//, 

2'  No  now  aaaaagaa  alnca  fllo  waa  laab  raad  on  15-Nov-8S  OS: 16: 
339. ' , / , '  Thoro  ara  23  old  aaaaagaa. ' , /, 

•'  Tha  fllo  la  26  diak  pagaa  long.',//,'  <-  ',//, 

1'  Thla  puba  ua  ab  bha  MSG  coaaand  lavol  proapb.',//, 

2'  Now  wa  hava  a  cholca.  Wo  could  raad  (T  -  typo) ,  aand  a  aaaaaga 
3(S  -  andaag) , ' , / , '  anawar  a  aaaaaga  (A  -  anawar)  abc.  (aao  avallab 
41a  coaaanda  abova) .  Flrab,',/,'  lab''a  glvo  a  try  ab  preparing  an 

Sd  aandlng  a  aaaaaga.',//, 

6'  (Noba:  During  thia  alaulablon  it  la  nocaaaary  to  typa  a  carriag 
7a  raturn',/,'  afbar  your  anbry >.',//, 

8'  To  bagln,  wa  typa  an  "S  <CR>”  aftar  tha  prompt  to  antar  tha  naaa 
9aga  aand',/,'  routlno.  Glvo  It  a  try.',//,'  <-  ',•) 
loss  F0RMAT('  What  you  ahould  hava  typad,  waa:  S  <CR>',//) 


c 

C  DEMO  -  CONFIRMATION 

C 

1060  FORMATC'  <-  Sndaag  Cconf Iral ' . 

1'  At  this  point  you  ontor  a  **Y<CR>*‘  to  confira,  or  a  *'N<CR>“  to  ca 
2neoll.'./,'  <-  andaag  Cconf Ira] ' 

106S  FORMATC*  What  you  ahould  hava  typad,  waa:  Y<CR>',//} 

C 

C  DEMO  -  TO 

C 

1070  FORMATC*  C  If  you  wiah  to  abort  back  to  MSG,  typa  control-Nl * , // , 
1*  To  C7  for  halp) :  *,//, 

2*  Tha  ayataa  la  now  aaklng  for  you  to  antar  tha  addraaaaa  of  your 
Saaaaaga.  * ./,  *  Sand  It  to  JONESKF*  .//,  *  To  C7  for  holp>  :  ' 

1075  FORMATC*  What  you  ahould  hava  typad,  waa:  J0NESKF<CR> * , //> 

C 

C  ••••  DEMO  -  CC 
C 

1080  FORMATC*  ee  C7  for  halp ):*,//, 

1*  Tha  ayataa  la  now  aaklng  who  you  would  Ilka  carbon  coplaa  Ccc)  a 
2ont  to.*,/,'  Sand  a  copy  to  WILLBE  and  to  youraalf  Clt  la  uaually 
Sconaldarad  a  good*,/,*  Idea  to  rataln  a  copy  for  youraalf).',//,' 
4cc  C7  for  halp)  :  ' ,•) 

1085  FORMATC*  What  you  ahould  hava  typad  waa:  WILLBE,  CYOUR  ACCOUNT  NAM 
1E)<CR>* ,//) 

C 

C  DEMO  -  SUBJECT 

C 

1090  FORMATC*  Subjaet : * , // , 

1'  Tha  ayataa  la  now  aaklng  for  a  aub]oct  line  for  your  aaaaaga.  L 
2at**a  glva*,/,'  tha  aaaaaga  tha  aubjact  of  "PASCAL".',//,'  Subject 
3:  ',*) 

1095  FORMATC'  What  you  ahould  hava  typad,  waa;  PASCAL<CR> ' , // ) 

C 

C  ••••  DEMO  -  MESSAGE 
C 

1100  FORMATC'  Maaaaga  C7  for  halp):*,//, 

1*  Tha  ayataa  la  now  aaklng  you  to  input  your  aaaaaga.  Upon  compl 
2tlon  of',/,'  entering  your  aaaaaga,  you  antar  a  "Z  Ccontrol-Z). 
31aulate  It  hare  by',/,'  typing  a  "‘'Z<CR>".  Try  entering  tha  folio 
4wlng  aaaaaga:  What  paacal',/,*  languagaa  are  available  on  tha  top 
5a-20  ayataa.',//,'  Heaaage  C7  for  help)  :*,/,S) 

1105  FORMATC'  What  you  ahould  have  typed,  waa:',//, 

1'  WHAT  PASCAL  LANGUAGES  ARE  AVAILABLE  ON  THE  TOPS-20  SYSTEM'Z' , //) 
C 

C  DEMO  -  QUEUE 

C 

1110  FORMATC'  Q,S, 7 , carriage  return;',//, 

1'  You  are  being  aaked  whether  you  dealre  to  wait  while  the  aesaage 
2  la  balng',/,'  aent  CS),  or  to  hava  the  ayataa  procaaa  it  at  ita  c 
Sonvaniance  while  you',/,'  are  free  to  continue  with  aoaethlng  elae 
4.  Tell  the  ayataa  to  queue  CQ). ',//,'  0,S,7,  carriage  return: ',S) 
1115  FORMATC*  What  you  ahould  have  typed,  waa:  0<CR>',//) 

C 
C 


....  DEMO  -  TYPE 


lA  (I 


Cyour  account) 


1120  FORMAT ( '  Q,S. ? , carriaga  raturn:  Quaua'.//, 

1'  JONESKF  --  quauad'./,'  WILLBE  —  quauad',/,' 

2--  quauad'.//,' 

3'  Tha  ayataa  ia  now  procaaaing  tha  aaaaaga  and  haa  givan  you  tha  H 
4SC  coaaand',/,'  laval  proapt;  awaiting  your  naxt  coaaand.  Lat''a 
Sraad  a  aaaaaga .  Todoao',/,'wa  antar  tha  T  ( ty pa >  coaaand 
6'  <-  ',•) 

1125  FORHATC'  What  you  ahould  hava  typad,  waa:  T<CR>',//> 

C 

c  ■•••  DEMO  -  MESSAGE  SEQUENCE  (ONE  MESSAGE) 

C 

1130  F0RMAT('  <-  typa  (aaaaaga  aaquanca)  ‘ 

1'  Tha  ayataa  la  now  aaklng  for  which  aaaaaga(a)  you  wlah  to  raad. 

2  Lat''a'./,'  raad  aaaaaga  14.',//, 

3'  <-  typa  (aaaaaga  aaquanca)  ',•> 

1135  F0RMAT('  What  you  ahould  hava  typad,  waa:  14<CR>',//) 

C 

C  ••••  DEMO  -  HEADERS 
C 

1140  FORMAT ('  (aag.  #  14,  299  chara)',/,'  Mail  -Froa:  ACTION  craatad  at 

1  l6-0ct-a5  19:13:01',/, 

2'  Data:  16  Oct  1965  19:13:01  EDT',/,  '  Froa:  ACTIONSUSC-ISI . ARPA 
3',/,'  Subiact:  MSG',/,'  To:  (Your  account)',//, 

4'  A  vary  apacial  fila  in  your  Diractory  ia  tha  “HAIL.TXT"  film. 
5  Thla  fila',/,'  controla  your  “aallbox'',  and  tharafora  ahould  nav 
6ar  ba  dalatad. ' , // , 

7'  - - - ',/,'  That  waa  aaaaaga  14',//, 

8'  Plaaaa  nota  tha  algnlficanca  of  tha  abova  aaaaaga.',//, 

9'  NEVER  DELETE  THE  MAIL. TXT  FILE.',//, 

•'  If  wa  had  not  raaonbarad  tha  axaet  aaaaaga  nuabar  of  thia  aaaaag 
la,  we  could',/,'  hava  found  it  with  tha  HEADER  conaand.  Wa  could 
2do  thla  by  looking  at  all',/,'  “haadara*',  or  if  wa  knaw  ita  approx 
31aata  nuabar  wa  could  apaclfy  a  ranga  of',/,'  aaaaaga  haadara  to  b 
4a  outputad  by  tha  ayataa.  Lat"a  glva  thia  a  try.  Flrat,',/,'  in 
5voka  tha  H  (haadar)  coaaand.',//,'  <-  ',*) 

1145  F0RHAT('  What  you  ahould  hava  typad,  waa:  H<CR>',//) 

C 

C  ••••  DEMO  -  MESSAGE  SEQUENCE  C) 

C 

1150  F0RHAT('  Haadara  (aaaaaga  aaquanca)  ',//, 

1'  Tha  ayataa  ia  now  aaking  which  haadara  you  wiah  to  aaa.  Tall  it 

2  10  through',/,'  15,  ainca  wa  baliava  thla  ia  whara  our  aaaaaga  of 

3  intereat  llaa.',//, 

4'  <-  Haadara  (aaaaaga  aaquanca)  ',6) 

1155  F0RHAT('  What  you  ahould  hava  typad,  waa:  10: 15<CR> ' , //) 

C 

1160  F0RHAT('  10  15  Aug  Raalnd  Daaaon  WHO  WAS  FIRST',/, 

1'  11  17  Aug  Gary  Poock  <P00CK«USC-  "EYE-dantif ication ' , / , 

2'  12  5  Sap  Toa  Brown  <BR0WNTjeUSC  EE  MADE  SIMPLE  FOR  C3',/, 

3'  13  9  Oct  To:  FRANKSDZeUSC-ISI.A  IF  YOU  SAY  SO',/, 

4'  14  16  Oct  ACTION  MSG',/, 

S'  15  17  Oct  To:  SMITHSL0USC-ISI,AR  PROPER  ATTIRE',//, 

6'  From  tha  abova  wa  find  that  tha  aaaaaga  of  interaat  la  nuabar  14 
7.  Note  alao',/,'  tha  other  information  praaantad.  Wa  can  tall  th 


6at  wa  racaivad  aasaagas  10,'./.'  11.  and  13  and  that  we  aent  meaaa 
9gaa  13  and  IS.'.//) 

C 

C  ••••  SIGN-OFF  ROUTINE 
C 

1240  FORMAT ('  Thia  complataa  tha  tutorial  on  MSG.  Ranaabar  to  uaa  tha 
1''?"  any  tiaa  you'./,'  ara  not  qulta  aura  what  tha  aystaa  la  aaking 
2  for . ' .//) 

1250  FORMATC'  Sorry  to  aaa  you  quit  aarly.  Good  bya.'./Z) 

1300  FORMATf'  WOULD  YOU  LIKE  TO  CONTINUE  <Y  or  N>7',*) 

1320  FORMATC'  WOULD  YOU  LIKE  A  DEMONSTRATION  OF  THE  ABOVE  COMMANDS  (Y  o 
Ir  N)?'.*) 

1340  FORMATC'  No.  Try  again.',//) 

1350  FORMATC'  You  atill  don"t  hava  it  right.',//) 

1360  FORMATC'  CARE  TO  TRY  AGAIN  CY  or  N)7',0) 

1370  FORMATC'  ENTER  ANY  KEY  TO  RETURN  TO  THE  MAIN  MENU:  ',S) 

1400  FORMAT  Cl Al) 

1410  FORMAT Cl A3) 

1420  F0RMATC3AS) 

1430  F0RMATC7A5) 

1440  F0RMATC1A2) 

1450  F0RMATC2AS) 

1460  FORMATCIAS) 

1500  FORMATC//,'  0',*) 

1505  FORMATC//,'  <-',•) 

1510  FORMATC//,'  <-  andmag  Cconf Iral ' , S) 

1515  FORMATC//,'  TO  C?  for  halp) :  ',*) 

1520  FORMATC//,'  cc  C7  for  halp):  ',S) 

1525  FORMATC//,'  aubjaet:  ',*) 

1530  FORMATC//,'  maaaaga  C7  for  halp):  '.*) 

1535  FORMATC//,'  Q,S,7  carriaga  return  ' ,*) 

1540  FORMATC//,'  typa  Cnaaaaga  aaquanca)  ’ ,s> 

1545  FORMATC//,'  haadara  Cnaaaaga  aaquanca)  ',S) 

1600  FORMAT  C / / / / ) 

END 

C 

C 
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SUBROUTINE  AXED (DUN) 

««■=■«««■•«■• ••«.XED  SUBROUTINE*””******""* •««■•■»«••«»•»»■■==»»■« 
•THIS  SUBROUTINE  EXPLAINS  AND  DEMONSTRATES  THE  "XED"  TEXT  EDITOR  « 

DIMENSION  INPUT ( 1 ) . DEMI ( 1 > , 0EM2  <2> , DEH3 ( 3  > , DEM7 ( 7  > 

••••  INTRODUCTION 


i  -  J 


TYPE  1600 
TYPE  1000 
TYPE  1300 

READ (OS. 1400. ERR* 10)  INPUT 
TYPE  1600 

IFdNPUTCl) .EO. 'N' .OR.INPUT(l) .EQ. 'n' >G0  TO  520 

••••  XED  COMMAND  LEVEL  COMMANDS 

TYPE  1010 
TYPE  1300 

READ<05.14OO.ERR*15)  INPUT 
TYPE  1600 

IFdNPUTCl) .EO. 'N' .OR.INPUTCl) .EQ. 'n' )G0  TO  520 
TYPE  1020 
TYPE  1300 

READ<05.1400.ERR*20)  INPUT 
TYPE  1600 

IFCINPUTCl)  .Efl. 'N' .OR.INPUTd)  .EQ. 'n' )G0  TO  520 

....  COMMANDS  WITHIN  INSERT  AND  APPEND 

TYPE  1030 
TYPE  1320 

READ <05, 1400, ERR *25)  INPUT 
TYPE  1600 

IFCINPUTd)  .EQ. 'N' .OR.  INPUTd)  .EO. 'n' )G0  TO  520 


■.*•  DEMONSTRATION  OF  THE  XED  COMMAND 


NUM*0 
TYPE  1040 

READ<05,1410,ERR*30)  DEMI 
TYPE  1600 

IF<DEMld) -EQ. ’0' .OR.DEMld)  .EQ.'q' )G0  TO  520 
IF<DEM1 d) .EQ. 'XED' .OR.DEMl d) .EO. 'x«d' )G0  TO  50 
NUM*NUM*1 

GO  TO  (35,40,45)  NUH 
35  TYPE  1340 

TYPE1500 
GO  TO  32 
40  TYPE  1350 

TYPE  1500 
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45 


GO  TO  32 
TYPE  1045 
TYPE  1360 
TYPE  1600 

READ(05.1400.ERR*45)  INPUT 
TYPE  1600 

IFCINPUTd) .EO. '0' .OR.INPUT(l) .EO. 'q' >G0  TO  520 
IFCINPUTCI) .EQ. 'Y' .OR.INPUT(l) .EQ. 'y'JGO  TO  25 

•  •••  DEMONSTRATION  OF  THE  READ  COMMAND 


NUM>0 
TYPE  1050 

READ<05,1400,ERR»55)  INPUT 
TYPE  1600 

IFCINPUTCl) .EO. 'Q' .0R.INPUT<1> -EQ. 'q' >G0  TO  520 
IFCINPUTd) .EQ. 'R' .OR.INPUT(l) .EQ. 'r' )G0  TO  75 
NUM»NUM»1 

GO  TO  {60,65,70)  NUM 

TYPE  1340 

TYPE  1505 

GO  TO  57 

TYPE  1350 

TYPE  1505 

GO  TO  57 

TYPE  1055 

TYPE  1360 

READ<05,1400,ERR»70)  INPUT 
TYPE  1600 

IFCINPUTCI) .EQ. '0' .OR.INPUTd) .EO. 'q' )G0  TO  520 
IFdNPUTd)  .EQ. 'Y' .OR.INPUTd)  .EO. 'y' )G0  TO  50 

••••  DEMONSTRATION  OF  READING  IN  A  FILE 


NUM«0 
TYPE  1060 

READ <05, 1420, ERR*80)  DEM3 
TYPE  1600 

IF<DEM3d) .EQ. 'Q' .0R.DEM3<1> .EO. 'q' )G0  TO  520 

IF<DEM3d) .EQ. 'INVIS' .AND.DEM3(2) .EO. ' . IBLE' . AND.DEM3(3> .EQ. ' .1 ' .0 
IR.DEMSd) .EQ. ' invia' . AND.DEM3{2) .EO. ' .ible' . AND.DEM3(3) . EQ . ' . 1 ' ) GO 
2  TO  100 
NUM=NUM*1 

GO  TO  <65,90,95)  NUM 

TYPE  1340 

TYPE  1510 

GO  TO  82 

TYPE  1350 

TYPE  1510 

GO  TO  82 

TYPE  1065 

TYPE  1360 

READ<05,1400,ERR=95)  INPUT 
TYPE  1600 

IF<INPUT<1) .EQ. 'Q' .OR.INPUTd) .EQ. 'q' )G0  TO  520 


IF(INPUT<1> .EG. ' Y' .0B.INPUT<1> .EO. 'y' )G0  TO  75 


C 

C  ••••  DEMONSTRATION  OF  THE  LIST  COMMAND 

C 

100  NUM-0 
105  TYPE  1070 

107  REA0(0S,1400,ERR«10S>  INPUT 

TYPE  1600 

IFdNPUTtl)  .EG. 'Q' .OR.INPUTd)  .EG. 'q' )GO  TO  520 
IF(INPUT<1).EO.'L'.OR.1NPUT<1>.EO.'1')GO  TO  125 
NUM«NUH«1 

GO  TO  (110,115.120)  NUM 
110  TYPE  1340 
TYPE  1515 
GO  TO  107 
115  TYPE  1350 
TYPE  1515 
GO  TO  107 
120  TYPE  1075 
TYPE  1360 

READ(05.1400,ERR>120>  INPUT 
TYPE  1600 

IF<INPUT<l).E0.'O'.OR,INPUT(l).EO.'q')CO  TO  520 
IF<lNPUT(l).EO.'Y'.OR.INPUT(l).EQ.'y')GO  TO  100 
C 

C  «««•  DEMONSTRATION  OF  THE  VIEW  COMMAND 

C 

125  NUH>0 
130  TYPE  1080 

132  READ<05.1400,ERR>130)  INPUT 

TYPE  1600 

IFCINPUTd)  .EG. '0' .OR.INPUTd)  .EG. 'q'>GO  TO  520 
IFdNPUTd)  .EG. 'V' .OR.INPUTCl)  .EG.'vMGO  TO  150 
NUM»NUM*1 

GO  TO  (135,140,145)  NUM 
135  TYPE  1340 
TYPE  1515 
GO  TO  132 
140  TYPE  1350 
TYPE  1515 
GO  TO  132 
145  TYPE  1085 
TYPE  1360 

READ(05,1400,ERR=145)  INPUT 
TYPE  1600 

IFdNPUTd)  .EG. '0' .OR.INPUTd)  .EG. 'q' )G0  TO  520 
IFdNPUTd)  .EG. 'Y' .OR.INPUTd)  .EG. 'y' )G0  TO  125 
C 

C  ••••  DEMONSTRATION  OF  THE  INSERT  COMMAND 

C 

150  NUM-0 
155  TYPE  1090 

157  READ<05.1400,ERR-155)  INPUT 

TYPE  1600 

IFdNPUTd)  .EG. 'G'  .OR.INPUTd)  .EG. 'q' )G0  TO  520 


82 


.  A  .  A  i 


IFCINPOTd)  .EQ. 'I' .OR.INPUTd)  .EQ. 'i' )G0  TO  175 
NUM-NUM*! 

GO  TO  (160,165.170)  NUH 

TYPE  1340 

TYPE  1520 

GO  TO  157 

TYPE  1350 

TYPE  1520 

GO  TO  157 

TYPE  1095 

TYPE  1360 

READ(05,1400,ERR«170)  INPUT 
TYPE  1600 

IFCINPUTCl) .EO. 'Q' .OR.INPUT(l) .EQ. 'q')GO  TO  520 
IFCINPUTd) .EQ. 'Y' .OR.INPUT(l) .EG. 'y' )G0  TO  150 

••••  DEMONSTRATION  OF  INSERTING  MATERIAL 

NUM-0 
TYPE  1100 

READ(05,1430,ERR>180)  DEM7 
TYPE  1600 

IF(DEM7(1) .EG. 'Q' .0R,DEM7<1) .EG. 'q' )G0  TO  520 

IF(DEM7(1) .EG. 'uae  t' . AND.DEM7(2) .EG. 'ha  “S' . AND . DEM7 (3) . EG . ' ET  FI 
' . AND.DEH7(4) .EG. 'LE  VI' .AN0.DEM7(S> .EG. 'SIBLE' .AND.DEM7(6> .EG. '“ 
coa' . AND.0EM7(7} .EG. 'mand. ' )G0  TO  200 
NUM>NUH«1 

GO  TO  (185,190.195)  NUM 

TYPE  1340 

TYPE  1525 

GO  TO  182 

TYPE  1350 

TYPE  1525 

GO  TO  182 

TYPE  1105 

TYPE  1360 

READ(05,1400,ERR=195)  INPUT 
TYPE  1600 

IFdNPUTd)  .EG. '0' .OR.INPUT(l)  .EG. 'q')GO  TO  520 
IFdNPUTd)  .EG. 'Y' .OR.INPUTd)  .E0.'y')G0  TO  175 

DEMONSTRATION  OF  END  OF  FILE  COMMAND 


NUN>0 
TYPE  1110 

READ (05, 1440, ERR=205)  INPUT 
TYPE  1600 

IFdNPUTd)  .EG. '0' .OR.INPUTd)  .EG. 'q' )G0  TO  520 
IFdNPUTd)  .EG. 'Z' .OR.INPUTd)  .EG. 'z' )G0  TO  225 
NUM  =  NUM->1 

GO  TO  (210,215,220)  MUM 

TYPE  1340 

TYPE  1530 

GO  TO  207 

TYPE  1350 


TYPE  1530 
GO  TO  207 
TYPE  1115 
TYPE  1360 

READ<05.1400,ERR-220>  INPUT 
TYPE  1600 

IF<INPUTa).EQ.'Q'.OR,lNPUT<l).EQ.'q'>CO  TO  520 
IFCINPUTCIJ .EO. 'Y' .OR.INPUTCl) .EG. 'y'lGO  TO  200 


DEMONSTRATION  OF  KILL  COMMAND 


NUH>0 
TYPE  1120 

RE AO (05. 1400, ERR* 230)  INPUT 
TYPE  1600 

IF<INPUT<l>.EQ.'Q'.OR.INPUT(l).EO.'q')GO  TO  520 
lF(INPUT(l).NE.'K'.AND.INPUT(l).ME.'k')GO  TO  232 
TYPE  1123 

READ (05, 1400, ERR>230)  INPUT 

IF(INPUT(l).EQ.'Q'.OR.INPUT(l).EQ.'q')GO  TO  520 
IF(INPUT(l).EQ.'l'.OR.INPUT(l).Ea.'  ' )G0  TO  250 
NUH>NUH«1 

GO  TO  (235,240,245)  NUN 

TYPE  1340 

TYPE  1535 

GO  TO  231 

TYPE  1350 

TYPE  1535 

GO  TO  232 

TYPE  1125 

TYPE  1360 

READ(05,1400,ERR>245)  INPUT 
TYPE  1600 

IF(INPUT(l).EQ.'Q'.OR.INPOT(l).EO.'q')GO  TO  520 
IF(INPUT(l).EQ.'Y'.OR.INPUT(l).EQ.'y')GO  TO  225 


••••  DEMONSTRATION  OF  THE  WRITE  COMMAND 


NUH>0 
TYPE  1130 

READ(05,1400.ERR»2S5)  INPUT 
TYPE  1600 

IFdNPUTd)  ,EQ. 'Q' .OR.INPUTd)  .EQ. 'q' )G0  TO  520 
IFdNPUTd)  .EQ. 'W' .OR.INPUTd)  .EQ. 'w' )G0  TO  275 
NUM-NUM«1 

GO  TO  (260,265,270)  NUM 

TYPE  1340 

TYPE  1505 

GO  TO  257 

TYPE  1350 

TYPE  1505 

GO  TO  257 

TYPE  1135 

TYPE  1360 

READ{05,1400,ERR-270)  INPUT 


o  o  o 


TYPE  1600 

IFCINPOTCl) .EO. '0' .OR.INPUTd) .EQ.'q' )C0  TO  520 
IF<INPUT<1> .EQ. 'Y' .OR.INPUT(l) .EQ. 'y' >G0  TO  250 

•  •••  DEMONSTRATION  OF  WRITING  TO  A  FILE 

275  NUM«0 
260  TYPE  1140 

262  READ(05.1450,ERR>260>  0EM2 

TYPE  1600 

IF(DEM2(1>.EQ.'Q' .0R.DEM2<l>.EQ.'q'>G0  TO  520 

IF<DEM2(1} .EQ. 'INVIS' .AND.DEH2<2) .EQ. ' . IBLE' . OR. DEH2 (1 > .EQ. 'lnvi>' 
l.AND.0EM2(2} .EQ. ' .ibl«')GO  TO  300 
NUH'NUM-^l 

GO  TO  (265,290,295)  NUN 
265  TYPE  1340 
TYPE  1540 
GO  TO  262 
290  TYPE  1350 
TYPE  1540 
GO  TO  262 
295  TYPE  1145 
TYPE  1360 

READ(05,1400,ERR>295)  INPUT 
TYPE  1600 

IF(INPUT<l).Ea.'0'.0R.INPUT<l).Ea.'q')G0  TO  520 
lF<INPUT<l).EQ.'Y'.OR.IMPUT<l).EQ.'y')GO  TO  275 
C 

C  ••••  DEMONSTRATION  OF  THE  ZAP  COMMAND 
C 

300  NUM-0 
305  TYPE  1150 

307  READ<05,1400,ERR»305)  INPUT 

TYPE  1600 

IFCINPUTd)  .EQ. '0' .OR.INPUTd)  .EQ. 'q' >G0  TO  520 
IFdNPUTd)  .EQ. '2' .OR.lNPUTd)  .EQ.'z' >G0  TO  325 
NUM»NUM«1 

GO  TO  (310,315,320)  NUM 
310  TYPE  1340 
TYPE  1505 
GO  TO  307 
315  TYPE  1350 
TYPE  1505 
GO  TO  307 
320  TYPE  1155 
TYPE  1360 

READ(05,1400,ERR«320)  INPUT 
TYPE  1600 

IFdNPUTd)  .EQ. '0' .OR.INPUTd)  .EQ. 'q' )G0  TO  520 
IFdNPUTd)  .EQ. 'Y' .OR.INPUTd)  .E(3. 'y' )G0  TO  300 
C 

C  DEMONSTRATION  OF  THE  APPEND  COMMAND 

C 


NUM«0 
TYPE  1160 


332  READ <05, 1400, ERR -330)  INPUT 

TYPE  1600 

IF<INPUT<1) .EQ.'Q' ,0R.INPUT<l>.EQ.'q'>G0  TO  520 
IF<INPUT<1).EQ.'A'.0R.1NPUT<1).EQ.'«MG0  TO  350 
NUn>NUH«l 

GO  TO  (335,340,345)  NUN 
335  TYPE  1340 
TYPE  1515 
GO  TO  332 
340  TYPE  1350 
TYPE  1515 
GO  TO  332 
345  TYPE  1165 
TYPE  1360 

READ<0S,1400,ERR>345>  INPUT 
TYPE  1600 

IFdNPUTCl) .EQ.'Q' .OR. INPUT<l).EO.'q'>CO  TO  520 
lF<lNPUT<l).EQ.'Y'.OR.INPUT<l).EQ.'y'>GO  TO  325 
C 

C  «>«•  DEMONSTRATION  OF  KILLING  MORE  THAN  ONE  LINE 
C 

350  NUM«0 

355  TYPE  1170 

356  READ(05,1440,ERR-35S)  DEMI 
TYPE  1600 

IF<DEM1 (1) .EQ. '0' .OR.DEMl (1) .EQ. 'q' >G0  TO  520 
IF(DEMl(l).NE.'3K'.AND.DEMl<l).ME.'3k'>G0  TO  357 
TYPE  1173 

READ (05, 1400, ERR >355)  INPUT 
TYPE  1600 

IFdNPUTd). EQ.'Q', OR. INPUT<l).EO.'q'>CO  TO  520 
IFdNPUTd)  .EQ. '1' .OR.INPUTd)  .EQ.'  ')G0  TO  375 

357  NUM>NUM*1 

GO  TO  (360,365,370)  NUM 
360  TYPE  1340 
TYPE  1515 
GO  TO  356 
365  TYPE  1350 
TYPE  1515 
GO  TO  356 
370  TYPE  1175 
TYPE  1360 

READ<05,1400,ERR=370)  INPUT 
TYPE  1600 

IFdNPUTd)  .EQ. 'Q' .OR.INPUTd)  .EQ. 'q' )G0  TO  520 
IFdNPUTd). EQ.'Y'. OR. INPUTd).EO.'y')GO  TO  350 
C 

C  ••••  DEMONSTRATION  OF  THE  JAM  COMMAND 

C 

375  NUM»0 
380  TYPE  1180 

382  REA0(05,1440,ERR=380)  DEMI 

TYPE  1600 

IF(DEM1  (1)  .EQ. 'Q' .OR.DEMld)  .EQ. 'q' )G0  TO  520 

IF  (DEMI  (1)  .EQ.  '3J'  .OR.DEMld)  .EQ.  '  J'  .OR.DEMld)  .EQ.  '3j  '  .OR.DEMl  (1 
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k- 

k’’ 


385 


390 


395 


C 

C 

C 

400 

405 

407 


410 


415 


420 


C 

c 

c 

425 

430 

432 


435 


440 


1.EQ.'3')G0  to  400 
NUH«NUM«1 

GO  TO  (385, 390, 395 >  HUH 

TYPE  1340 

TYPE  1545 

GO  TO  382 

TYPE  1350 

TYPE  1545 

GO  TO  382 

TYPE  1185 

TYPE  1360 

READ(05,1400,ERR>39S)  INPUT 
TYPE  1600 

IFdNPUTd)  .EO. 'Q' .OR.INPUTd)  .EQ. 'q' )G0  TO  520 
IF(INPUTd).EQ.'Y'.OR.INPUTd).EQ.'y')GO  TO  375 

....  DEMONSTRATION  OF  TYPING  OTHER  THAN  CURRENT  LINE 

NUM>0 
TYPE  1190 

READ(05,1440,ERR«405)  DEMI 
TYPE  1600 

IF(DEMld)  .EQ. '0' .OR.DEMld)  .EQ. 'qdCO  TO  520 
IF<DEMld>.EQ.'3T  .0R.DEMld),E0.'3t'>G0  TO  425 
NUM«NUM«1 

GO  TO  (410,415,420)  NUN 

TYPE  1340 

TYPE  1515 

GO  TO  407 

TYPE  1350 

TYPE  1515 

GO  TO  407 

TYPE  1195 

TYPE  1360 

READ(05,1400,ERR«420)  INPUT 
TYPE  1600 

IF(IMPUT(l).EQ.'Q'.OR.INPUT(l).EQ.'q')GO  TO  520 
IFdNPUTd)  .EQ. 'Y' .OR.INPUTd)  .EQ. 'y'lGO  TO  400 

••••  DEMONSTRATION  OF  TYPING  MORE  THAN  ONE  LINE 

NUM-0 
TYPE  1200 

READ(05,1400,ERR>430>  INPUT 
TYPE  1600 

IFdNPUT(l).EQ.'Q'.OR.INPUT(l).EQ.'q'>GO  TO  520 

IFdNPUTd)  .EQ. '2' )G0  TO  450 

NUH>NUH«1 

GO  TO  (435,440,445)  NUH 

TYPE  1340 

TYPE  1550 

GO  TO  432 

TYPE  1350 

TYPE  1550 

GO  TO  432 
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TYPE  1205 
TYPE  1360 

READ(05,1400,ERR>44S>  INPUT 
TYPE  1600 

IFCIHPUTd) .EO.'Q' .0R.lNPUT<l>.E0.'q'>C0  TO  520 
IF<IMPUT<l).EQ.'Y'.OR.INPUT<l>.EO.'y'>GO  TO  425 

DEMONSTRATION  OF  THE  EXIT  COMMAND 

NUM>0 
TYPE  1210 

READ(05.1400.ERR«455)  INPUT 
TYPE  1600 

IFdNPUTd)  .EQ. 'Q' .0R.INPUT<1>  .EO. 'q' >G0  TO  520 
1F(INPUT(1).EQ.'E'.OR.INPUT<1).EO.'«'>GO  TO  475 
NUM>NUM*1 

GO  TO  (460.465.470)  NUN 

TYPE  1340 

TYPE  1505 

GO  TO  457 

TYPE  1350 

TYPE  1505 

GO  TO  457 

TYPE  1215 

TYPE  1360 

REA0<05.1400.ERR-470>  INPUT 
TYPE  1600 

IF(INPUT<l).EQ.'Q'.OR.INPUT<l).Ee.'q'>GO  TO  520 
IF(lNPUT(l).EQ.'Y'.OR.INPUT<l).EO.'y')GO  TO  450 

••••  DEMONSTRATION  OF  FILE  STORAGE  BEFORE  EXITING 

NUH>0 
TYPE  1220 

READ <05. 1450. ERR«480)  DEN2 
TYPE  1600 

IF(DEM2(1>  .EQ. 'Q' .0R.DEM2(1>  .EQ.'qOGO  TO  520 
1F<DEM2<1) .EQ. 'INFO. ' .AND.DEH2<2> .EQ.'FILE' . OR. DEM2 ( 1 > . EQ 
l.AND.DEH2(2> .EQ. 'fll«' )G0  TO  499 
NUH«NUH«1 

GO  TO  (485.490.495)  NUN 

TYPE  1340 

TYPE  1540 

GO  TO  482 

TYPE  1350 

TYPE  1540 

GO  TO  482 

TYPE  1225 

TYPE  1360 

RE AD (05. 1400. ERR >495)  INPUT 
TYPE  1600 

IFdNPUTd)  .EQ. 'O' .OR.INPUTd)  .EO. 'q')GO  TO  520 
IFdNPUTd)  ,EQ. 'Y' .OR.INPUTd)  .EO. 'y' )G0  TO  475 
TYPE  1230 


C  SIGN-OFF  ROUTINE 

C 

500  TYPE  1240 
TYPE  1370 

READ(05.1400.ERR-510)  INPUT 
510  RETURN 
520  TYPE  1250 
TYPE  1370 

READ(05,14O0.ERR>530>  INPUT 
530  RETURN 
C 
C 

C  ••••••FORMATS  FOR  XED 

C 

C  ••••  INTRODUCTION 

C 

1000  FORMATS  XED',//, 

1'  XED  is  s  tsxt  sditor:  spscificslly  a  lins  aditor.  It  allows  you 
2  to  both',/,'  craata  and  adit  taxt,  ona  lina  at  a  tina.  Entry  Int 
3o  XED  is  by  typing  XED',/,'  a£tar  tha  “0“  prompt,  followad  by  a  <C 
4R>. ',//,'  Dafinitions: ' ,//, 

5'  Taxt  Buffar  -  Tha  taxt  buffar  is  your  currant  working  spaca.' 

6,//, 

7'  Print  Buf/ar  -  Tha  araa  whara  aatarial  you  hava  "KILL"ad  is 
fi  placad.  Nota,',/,'  only  tha  satarlal  froa  the  L 

9AST  KILL  operation  is  retained.',//, 

•'  Cossand  Laval  -  The  level  you  are  at  when  you  enter  XED;  dlstln 
Iguishable  by',/,'  tha  prompt.',//, 

2*  Lina  Number  -  Line  numbers  are  assigned  by  XED  to  each  lina  i 
3n  your  text',/,'  buffer,  starting  with  line  numbe 

4r  one.  The  numbers  are  for',/,'  reference  while 

Swlthln  XED  and  are  not  stored  into  the  file.',//) 

C 

C  ••••  XED  COMMAND  LEVEL  COMMANDS 
C 

1010  FORMAT ('  XED  COMMAND  LEVEL  COMMANDS',//, 

•'  COMMAND  USES  (s>',//. 

1'  A  -  APPEND  To  enter  text  after  the  current  line.',/, 

2'  B  -  BACK  UP  Create  back  up  file.',/, 

3'  C  -  CHANGE  To  modify  current  lines.',/, 

4'  E  -  EXIT  Exits  XED,  after  file  save,  back  to  system  le 

5vel.',/,'  F  -  FIND  Locates  a  specific  letter,  word  or  ph 

Erase. ' , / , 

7'  G  -  GROUP  Joins  current  line  with  following  line.',/, 

8'  I  "  INSERT  Inaerts  text  before  current  line.',/, 

9'  J  -  JAM  Jams  the  contents  of  Print  Dump  after  the  cur 

•rent  line. ' ,/, 

1'  K  -  KILL  Places  current  or  specified  line  (s>  into  Pri 

2nt  Dump. ' , / , 

3'  L  -  LIST  Outputs  entire  text  buffer  without  line  numbe 

4rs. ' ,/, 

5'  P  -  PRINT  DUMP  Prints  contents  of  Print  Dump.  ',/, 

6'  0  -  QUIT  Quits  XED,  without  file  ssve,  bsck  to  system 

71eval. ' ,/, 

8'  R  -  READ  Reads  into  XED  the  contents  of  a  file.'./. 


9'  S  -  SEARCH  Lika  Find  axcapt  it  looka  for  all  occurrancaa 

C 

1020  FORMAT ('  COMMAND  USE',//. 

1'  T  -  TYPE  Typaa  out  currant  lina.',/, 

2'  V  -  VIEW  Diaplaya  tha  currant  and  following  15  linaa.' 

3,/, 

4'  W  -  WRITE  Wrltaa  currant  contanta  of  taxt  buffar  to  fil 

Sa.'./, 

E'  X  -  EXCHANGE  Saarchaa  for  apacific  taxt  and  raplacaa  it  wi 
7th  anothar . ' . / , '  2  -  ZAP  Puta  your  antira  fila  into  tha 

8  Print  Duap.',/, 

9'  ''  -  SWITCH  DUMP  Swapa  contanta  of  tha  Print  and  Taxt  Buffara 

•  •  ,  /  , 

1'  ,  -  TYPE  CONTXT  Typaa  currant  lina  and  fiva  linaa  bafora  and 

Zaftar. ' ,/, 

3'  /  -  TYPE  Typaa  tha  currant  lina.',/, 

4'  X  -  SNDMSG  Utlllzaa  currant  taxt  buffar  aa  body  of  aaaaa 

Sga. ' ,/, 

6'  •  -  LAST  LINE  Movaa  you  to  tha  laat  lina  of  tha  fila.',/, 

7'  ?  -  COMMANDS  Diaplaya  availabla  coaaanda. ' , / , 

8'  *J  -  TYPE  Typaa  tha  naxt  lina.',/, 

9'  '‘Q  -  ABORT  Aborta  partially  coaplatad  coaaanda.',/, 

_  -  FORMAT  Right  juatifiaa  paragraph .',// > 

C 

c  COMMANDS  WITHIN  INSERT  AND  APPEND 

C 

1030  FORMATS  COMMANDS  WITHIN  INSERT  OR  APPEND:',//, 

1'  COMMAND  USE'.//, 

2'  (DEL  KEY}  Dalataa  tha  lattar  to  tha  laft  of  tha  curaor. 

3',/, 

4'  '‘R  -  RETYPE  Ratypa  tha  currant  lina,  laaving  curaor  at  th 

Sa  and. ' , /, 

6'  ‘X  -  KILL  LINE  Killa  tha  lina  to  tha  laft  of  tha  curaor.',/, 

7'  'W  -  DELETE  WORD  Dalataa  tha  word  to  tha  laft  of  tha  curaor.', 

a/, 

9'  ''Z  -  RETURN  Raturna  you  to  tha  coaaand  laval.',//, 

•'  COMMANDS  WITHIN  CHANGE:',//, 

1'  S  -  SKIP  Sklpa  to  a  apaclfiad  charactar . ' , / , 

2'  D  -  DELETE  Dalataa  tha  charactar  ovar  tha  curaor.',/, 

3'  I  -  INSERT  Inaarta  charactar a .',/ , 

4'  E  -  END  Movaa  curaor  to  and  of  lina.',/, 

S'  'D  -  ABORT  Aborta  any  changaa  you  hava  aada.',/, 

8'  ?  -  COMMANDS  Typaa  out  availabla  coaaanda.',/, 

7'  B  -  BREAK  Braaka  lina  in  two  at  curaor  poaition . ' , /, 

8'  <CR>  -  RETURN  Raturn  to  XED  coaaand  laval.',//) 

C 

C  ••••  DEMO  -  ENTRY  INTO  XED 

C 

1040  format:'  NOTE:  YOU  HAY  QUIT  THE  FOLLOWING  DEMONSTRATION  AT  ANY  TI 
IME,  SIMPLY  BY',/,'  TYPING  A  "Q"  FOLLOWED  BY  A  CARRIAGE  RETURN,  IN 
2REPLY  TO  ANY  OF  THE  PROMPTS,',//, 

•  '  OK.  Kara  wa  go.  Flrat  off,  wo  naod  to  get  from  the  Exec 

lutiva  Coaaand  level'./,'  to  the  XED  command  level.  To  do  thia,  we 
2  type  XED  after  the  "9"  prompt,',/,'  followed  by  a  <CR>.  Give  it 


3«  try. 8' ,*> 

1045  FORMAT ('  What  you  ahould  hava  typad,  waa:  XED  <CR>".//i 

C 

C  ••••  DEMO  -  THE  R  <READ)  COMMAND 
C 

1050  F0RMAT<'  XED  Varaion  4.2  <30-Aug-82) ' 

1'  Thla  puta  ua  at  tha  XED  coaaand  laval  prompt.',//, 

2'  Now  wa  hava  a  cholca.  Ua  can  bagin  antaring  text  for  a  new  f 
3ila  or  wa  can',/, 

4'  adit  text  froa  an  axlating  file.  Firat  let' 'a  try  editing  an 
5axiating  file.',/, 

6'  To  bring  in  the  axiating  file,  we  type  an  "R‘*  after  the  prompt. 
7  (Note  that',/, 

&'  during  thia  aiaulation,  you  will  need  to  type  a  <CR>  after  ante 
Sring  tha  firat',/, 

•'  letter  of  each  coaaand.  In  XED  itaelf,  thia  is  not  required). 
ISo  now  wa  typa',/, 

2'  “R  <CR>'‘  after  the  prompt.  Tha  systam  will  respond  by 

Sconplating  the',/, 

4'  command  and  than  asking  you  what  file  you  wish  to  insert.  Le 
5t''a  give  it  a',/, 

6'  try.',//,'  ;',») 

1055  F0RMAT('  What  you  should  have  typed,  was:  R  <CR>',//) 

C 

C  ••••  READING  IN  A  FILE 

C 

1060  FORMATC'  read',/,'  Input  File!',//, 

1'  At  this  point  you  typa  in  tha  “FilaNama.FilaTypa.FileNumber"  of 
2tha  file',/,'  you  wish  to  edit.  Uet"a  edit  "INVIS .  IBLE .  1"  ,  ' , // , 
3'  Input  File:',*) 

1065  F0RMAT('  What  you  ahould  have  typed,  was!  INVIS. IBLE. 1  <CR>',//) 

C 

c  ••••  DEMO  -  THE  L  (LIST)  COMMAND 
C 

1070  FORMATC'  8  LINES',/,'  1:',//, 

1'  From  the  above,  we  see  that  the  file  has  been  read  into  the  text 
2  buffer,  is',/, 

3'  eight  lines  in  length  and  tha  currant  line  is  line  1.  Now  we  wi 
4sh  to  take  a',/, 

5'  look  at  this  file.  Two  of  the  commands  we  can  use  to  do  this  ar 
•e  the  "VIEW"',/, 

•'  and  "LIST"  commands.  Give  the  "LIST"  command  a  try.',//, 

6'  remember:  only  type  in  the  FIRST  LETTER  FOLLOWED  BY  A  <CR>.',/ 
7/,'  l:',») 

1075  FORMAT!'  What  you  ahould  have  typed,  was:  L  <CR>',//) 

C 

C  ••••  DEMO  -  THE  V  (VIEW)  COMMAND 

C 

1080  FORMAT!'  list',//,'  INVISIBLE:',/, 

1'  Files  that  hava  been  marked  requesting  archival  are  said  to  be  " 
2INVISIBLE” , ' , / , '  meaning  that  these  filenames  will  not  show  up  in 
3the  usual  9  Directory',/,'  listing  unless  a  special  subcommand  is 
4glvan:  9Sinvisible(f ilea  only).',/,'  Note:  Although  a  xile  does 

Snot  show  up  in  the  regular  directory  listing,  ',/,'  it  is  still  in 
6  your  directory  and  will  not  really  go  away  until  the  Archive',/,' 


7  has  baen  run  (on  waakanda) .  If  you  prafar  that  the  filename  rema 
8ina  visible,',/,'  use  the  “SET  FIEL  VISIBLE"  command.',///, 

9'  Reading  the  above  file,  we  note  a  mistake  in  the  last  line.  We 
■know  this  is',/,'  line  eight,  because  the  file  is  only  eight  lines 
1  long  (we  could  also  count  the',/,'  lines,  but  this  would  be  a  ver 
2y  laborious  task  in  a  large  file  with  a  mistake',/,'  somewhere  in 
3the  middle).  How  then  are  we  to  find  end  correct  our  mistake?',/, 
4'  Let"s  try  typing  out  the  contents  of  the  file  with  the  "VIEW"  c 
Sommsnd. ' ,//, '  1:',0> 

1085  FORMAT ('  What  you  should  have  typed,  was:  V  <CR>',//) 

C 

c  •••>  DEMO  -  THE  I  (INSERT)  COMMAND 
C 

1090  FORMAT ('  view',//, 

1'  1*INVISIBLE' , / , '  2>Filea  that  have  been  marked  requesting  archiv 
2al  ere  said  to  be  “INVISIBLE",',/,'  3*meaning  that  these  filenames 

3  will  not  show  up  in  the  usual  0  Directory',/,'  4*listing  unless  a 

4  special  subcommand  is  given:  00lnvlalbla (files  only).',/,'  5>Not 

Se:  Although  a  file  does  not  show  up  in  the  regular  directory  list 

81ng,',/,'  fioit  is  still  in  your  directory  and  will  not  really  go  a 
7way  until  the  Archive',/,'  7>haa  been  run  (on  weekends).  If  you  p 
8refer  that  the  filename  remains  visible,',/,'  8»use  the  “SET  FIEL 
9VISIBLE"  command .',//, 

« '  This  allows  us  a  very  easy  way  to  determine  the  line  number.  No 
Iw,  we  wish  to',/, 

2'  correct  FIEL  to  FILE.  We  retype  the  line,  “INSERT"lng  it  before 
3  line  8,  or',/, 

4'  "APPEND"ing  it  ofter  line  7.  Let''s  fix  line  8  using  the  INSERT 

5  method.',//, 

6'  8:',S) 

1095  F0RMAT('  What  you  should  have  typed,  was:  I  <CR>',//) 

C 

C  ••••  DEMO  -  INSERTING  TEXT 
C 

1100  F0RMAT('  insert',//,'  8*',//, 

1'  Now  we  ere  ready  to  retype  the  line:  (Remember  the  'R,  “W,  ^ 
2X  and  Del  Key',/,'  commands.  In  fact,  make  a  few  mistakes  of  your 
3  own  while  typing  in  the',/,'  correct  line,  and  then  use  these  com 
4msnds  to  make  corrections.  Just  insure',/,'  that  you  have  the  lin 
5e  completely  right  before  typing  the  <CR>). ',//,'  8>',*) 

1105  F0RHAT('  What  you  should  have;  typed,  was:',//,'  use  the  "SET  FI 
ILE  VISIBLE"  command.',//) 

C 

C  DEMO  -  THE  ~Z  COMMAND 

C 

1110  F0RMAT('  9*',//, 

1'  Now  we  have  corrected  line  eight,  but  have  been  left  in  posi 
2tion  to  enter',/,'  material  into  line  nine.  Since  we  do  not  desir 
3e  to  enter  material  in  this',/,'  line,  we  type  s  ~Z.',//, 

4'  (FOR  THE  PURPOSES  OF  THIS  TUTORIAL,  JUST  USE  A  2)',//, 

5'  8'uae  the  "SET  FILE  VISIBLE"  commend.',/,'  9»',»> 

1115  F0RHAT('  What  you  should  have  typed,  was:  2  <CR>',//) 

C 

C  ••••  DEMO  -  THE  K  (KILL)  COMMAND 
C 


X120  FORMAT ('  9:',/, 

1'  Ranambar  that  what  wa  hava  juat  done  ia  insert  a  new  line  axgh 
2t.  That  naans', that  the  old  line  eight  has  become  the  new  lin 
3a  nine.  However,  wa  no  longer',/, 

4'  want  this  line  at  all.  To  gat  rid  of  it  we  use  the  KILL  command 
5.  To  KILL',/,'  line  9,  wa  start  by  ensuring  that  line  nine  is  the 

6  currant  line,  which  in',/,'  fact  it  is.  If  wa  ware  not  sure,  we 

7would  type  a  **9  <CR>",  which  would  make',/,'  line  9  the  currant  li 
8na.  To  KILL  two  lines,  wa  type  the  K  after  the  prompt,  1 

9at  the  system  respond  with  "ill",  and  then  type  the  number  "1",',/ 
•  ,'  indicating  that  wa  wish  to  KILL  one  line.  Note:  the  default  fo 
Ir  the  KILL',/,'  command  is  "1",  therefore  it  need  not  be  typed.  0 
2K.  Get  rid  of  line  9.',//,'  9:',S> 

1123  FORMATC//,'  9:Kill  ' ,*) 

1125  FORMATC'  What  you  should  have  typed,  was  one  of  the  following:'.// 
1,'  K  <CR>  followed  by  a  1  or  blank  and  a  <CR>  or',/, 

2'  k  <CR>  follwoad  by  a  1  or  blank  and  a  <CR>.',//> 

C 

C  ••••  -  THE  W  (WRITE)  COMMAND 

C 

1130  FORMATC'  8:',//, 

1'  The  above  indicates  that  you  have  "KILL'*ed  line  9.  Did  you  real 
2ize  that',/,'  there  were  four  possible  ways  you  could  have  given  t 
3he  "KILL**  command  in',/,'  this  case?  Specifically,  they  are:',//, 
4'  9KILL1  KILLl  9KILL  KILL',//, 

5'  Now  that  we  are  done  with  this  file,  we  wish  to  save  it,  but  do 
Gnot  wish',/,'  to  leave  XED.  Therefore,  we  uae  the  WRITE  command. 

7  Go  ahead.',//,'  :'.S) 

1135  FORMATC'  What  you  should  have  typed,  was:  W  <CR>',//> 

C 

C  -  WRITING  TO  A  FILE 

C 

1140  FORMATC'  write',/, 

1'  Output  File:',//, 

2'  We  are  being  asked  for  the  file  we  wish  the  material  in  the  text 
3  buffer',/,'  to  be  written.  Send  it  to  INVIS. IBLE' , //, 

4'  Output  File:',S) 

1145  FORMATC'  What  you  should  have  typed,  was:  INVIS. IBLE  <CR>',//> 

C 

C  DEMO  -  THE  Z  C2AP)  COMMAND 

C 

1150  FORMATC'  INVIS . IBLE . 2' ,/, '  8  lines',/,'  :',/, 

1'  The  system  has  filed  the  material  for  use,  yet  left  us  both  with 
2in  XED  and',/,'  within  the  file  we  were  editing.  Note  that  the  sy 
3stem  has  given  this  file',/,'  a  file  number  of  ”2",  indicating  the 
4t  there  was  one  previous  file  by  the',/,'  same  Name  and  Type.',//, 
1'  Now  let''s  say  we  are  finished  with  this  file  but  wish  to  enter 
2material  into',/,'  another  file.  We  could  use  the  QUIT  or  EXIT  co 
Smmands,  but  then  we  would  have',/,'  to  re-enter  XED.  It''8  much  e 
4Bsier,  and  timelier,  to  just  ’•ZAP”  the  material  ',/,'  in  the  text 
Sbuffer  Cie  KILL  it).  Give  it  a  shot!',//,'  :',S) 

1155  FORMATC'  What  you  should  have  typed,  was:  Z  <CR>',//) 

C 

c  ....  DEMO  -  THE  A  (APPEND)  COMMAND 


1160  FORMAT ('  zap'.//. 

1'  Good!  Now  wc  hava  an  ompty  text  buffer.  Lath's  bry  entering  ao 
2ne  original '«/> '  text.  Thia  tiae  uae  APPEND  to  get  into  the  text 
Sentry  mode.'.//.'  1:'.S> 

1165  FORHATC'  What  you  ahould  have  typed,  waa:  A  <CR>'.//) 

C 

C  ••••  DEMO  -  ENTERING  TEXT 
C 

1170  FORMAT!'  append'./.'  !•'.//. 

1'  Now  we  are  ready  to  enter  text.  Let  me  do  you  a  favor  and  enter 
2  aoae  for  you.'./.'  Note  how  at  the  end  of  a  line,  I  type  a  <CR>  a 
3nd  the  ayatan  provide#  the  next'./.'  line  number  for  ua.',//. 

4'  l>Thia  tutorial  doaa  not  explicitly  cover  a  few  of  the  coamanda. 
5  auch  aa  FIND,',/,'  2»GR0UP,  and  SEARCH.  You  ahould  be  able  to  fi 
6gura  thaaa  out  for  youraelf.  if'./.'  3>with.  Do  thia  from  the  XED 
7  command  level  -  le  at  the  prompt.'./,'  4«not.  try  the  HELP  co 

Smmand.  That  ia,  type  H  and  the  command  you  need  help',//, 

9'  Looka  like  I  got  the  order  of  the  laat  two  linea  mixed  up!  How 
•do  we  fix',/,'  thia?  Eaay.  we  can  KILL  line  three,  thia  will  put 
Ithe  contanta  of  line  three'./,'  into  the  Print  Buffer  and  line  fou 
2r  will  become  line  three.  Then  we  enaure',/,'  that  line  3  ia  the 
Scurrent  line  and  JAM  the  contenta  of  the  Print  Buffer  back',/,'  in 
4to  the  text  buffer.  Remember,  the  JAM  command  worka  like  the  APPE 
SND  command,',/, 

6'  it  placea  the  material  in  the  line  AFTER  the  current  line.  Go  a 
7head  and  KILL',/, 

8'  line  3. ' ,//, '  !:',«) 

1173  FORMAT!//,'  l:kill  ',*) 

1175  FORMAT!'  What  you  ahould  have  typed,  waa:'./,'  3K  <CR>  <CR>  or  3K 
1<CR>  1  <CR>',//) 

C 

c  ••••  DEMO  -  THE  J  !JAM)  COMMAND 
C 

1180  FORMAT!'  3:',//, 

1'  Now  go  ahead  and  JAM  in  the  material  from  the  print  buffer.',//, 
2'  3:',s> 

1185  FORMAT!'  What  you  ahould  have  typed,  waa:  3J  <CR>  or  J  <CR>',//> 

C 

c  ••••  DEMO  -  THE  T  !TYPE>  COMMAND 
C 

1190  FORMAT!'  jam',/, 

1'  4>with.  Do  thia  from  the  XED  command  level  -  ie  at  the  “ :  “  prom 
2pt. ' ,//, 

3'  Very  good!  Now  let' 'a  aee  if  we  got  it  right  by  typing  out  line 
4a  three  and',/,'  four.  Thia  can  be  done  by  uaing  the  VIEW  command 
5,  the  LIST  command  or  the',/,'  TYPE  command.  Similarly,  the  TYPE 
6command  can  be  uaed  to  type  out  each  line',/,'  aeparately  or  both 
7together .  To  type  them  both,  we  firat  apecify  the  "current',/,'  1 
8ine  number"  !3)  then  iaaue  the  TYPE  command  !T>  and  then  the  numbe 
9r  of  linea',/,'  we  wiah  typed  !2) .  Give  it  a  try.',//,'  1:',S) 
1195  FORMAT!'  What  you  ahould  have  typed,  waa:  3T  <CR>’,//> 

1200  FORMAT!//,'  l;3type  ',S> 

1205  FORMAT!'  What  you  ahould  have  typed,  waa:  2  <CR>',//> 


C 


DEMO  -  THE  E  !EXIT>  COMMAND 


c 

1210  FORMATC'  3«not,  try  the  HELP  co*»and.  That  is,  type  H  and  the  com 
Imand  you  need  help',/,'  4>with.  Do  this  from  the  XED  command  leve 
21  -  ie  at  the  prompt.',//. 

3'  Now  that  we  have  things  the  way  wc  want  them,  we' 're  done.  Note 

4  quit',/,'  though.  If  we  issue  the  QUIT  command  at  this  point,  we 

5  will  leave  XED  as',/,'  desired,  but  we  will  also  loose  the  materi 
6al .  We  either  need  to  first  WRITE',/, 

7'  the  contents  into  a  file  and  then  quit,  or  use  the  EXIT  command. 
8  The  EXIT',/,'  command  allows  us  to  write  what  is  currently  in  th 
9e  text  buffer  into  a  file',/,'  before  releasing  us  from  XED.  (Not 
•e:  You  could  also  use  the  ~C  command.',/, 

1'  This  will  take  you  to  the  Executive  level,  but  you  would  lose  th 
•e  material  in',/, 

2'  the  text  buffer,  unless  your  next  command  is  CONTINUE.  This  wil 
•1  place  you',/, 

•'  back  at  the  point  you  were  at).  To  uae  the  EXIT  command,  we  typ 
•a  the  "E"',/, 

3'  at  the  XED  command  level  prompt.  Go  ahead.',//,'  :',$) 

1215  FORMATC'  What  you  should  have  typed,  was:  E  <CR>',//) 

C 

C  ••••  DEMO  -  WRITING  TO  A  FILE  (WITH  EXIT) 

C 

1220  FORMATC'  exit',/,'  Output  File:',//, 

1'  See!  The  system  needs  the  name  of  the  file  to  store  the  materia 
21.  Store',/,'  it  in  the  Info.f ile' , //, '  Output  File:',S) 

1225  FORMAT ('  What  you  should  have  typed,  was:  INFO. FILE  <CR>',//) 

C 

C  ....  COMPLETION 

C 

1230  FORMATC'  INFO. FILE. 1  !New  Generation!',/,'  4  linos',/,'  0',//, 

1'  The  system  has  stored  the  material  for  you  and  placed  you  back  a 
2t  the  Executive',/,'  level.',//) 

C 

C  ....  SIGN-OFF  ROUTINE 

C 

1240  FORMATC'  This  concludes  the  XED  portion  of  this  tutorial.  Remembe 
Ir  to  use  the  to',/,'  find  the  available  command,  and  "HELP  Com 

2mand  Name"  to  find  out  how  to  use  a',/,'  particular  command.',//) 
1250  FORMATC'  SORRY  YOU  HAVE  A  HOT  DATE  AND  HAVE  TO  LEAVE  SO  SOON.',//) 

1300  FORMATC'  WOULD  YOU  LIKE  TO  CONTINUE  (Y  or  N)?',S) 

1320  FORMATC'  WOULD  YOU  LIKE  A  DEMONSTRATION  OF  THE  ABOVE  COMMANDS  CY  o 

Ir  N) ?' ,S) 

1340  FORMATC'  No.  Try  again.',//) 

1350  FORMATC'  You  still  don''t  have  it  right.',//) 

1360  FORMATC'  CARE  TO  TRY  AGAIN  (Y  or  N)?',S) 

1370  FORMATC'  ENTER  ANY  CHARACTER  TO  RETURN  TO  THE  MAIN  MENU:  ',B) 

1400  FORMAT  Cl Al) 

1410  F0RMAT(1A3) 

1420  FORMATC 3 A5) 

1430  F0RMATC7A5) 

1440  FORMAT C1A2) 

1450  F0RMATC2A5) 

1500  FORMATC//,'  0'S) 

1505  FORMATC//,'  :',S) 
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DEFENSE  DRTO  NETU0RK/T0FS-2t  TUTORIRL  RN  INTERRTIVE 
COHPUTER  PROGRRfl(U)  NRVRL  POSTQRRDURTE  SCHOOL  HONTEREV 
CR  N  K  NERKERT  ET  RL.  DEC  OS 


UNCLRSSIFIED 


F/G  9/2 


NL 


1510 

FORMATC//,  ' 

INPUT  FILE: 

1515 

FORMATC//, ' 

!:',•) 

1520 

FORMATC//,' 

6: ' ,«} 

1525 

format <//,' 

8>' ,•> 

1530 

FORMATC//,' 

9»' ,«> 

1535 

FORMATC//,' 

9:' ,«> 

1540 

FORMATC//,' 

OUTPUT  FILE 

1545 

FORMATC//, ' 

3:',*} 

1550 

FORMATC//,' 

l:3TYPE 

1600 

FORMATC////J 

END 

o  now  moio  oinr' 
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SUBROUTINE  AFTP(DUM> 


...FTP  SUBROUTINE— 

•  THIS  SUBROUTINE  EXPLAINS  AND  OEHONSTRATES  THE  "FTP"  PROTOCOL 


DIHENSION  INPUT < 1 ) . DEMI < 1 > , DEH3 <3 > . DEM4 ( 4 > 

••••  INTRODUCTION  TO  FTP 

TYPE  1600 
TYPE  1000 
TYPE  1300 

READ<05,1400.ERR>10)  INPUT 
TYPE  1600 

IFCINPUTd)  .EQ. 'N' .OR.INPUTd)  .EO. 'n' )C0  TO  520 

....  FTP  COMMANDS 

TYPE  1010 
TYPE  1300 

READ<05,1400,ERR.2S)  INPUT 
TYPE  1600 

IFdNPUTd>.Efl.'N',OR.INPUTd).EO.'n'>CO  TO  520 
....  DEMO  -  ENTRY  INTO  FTP 


'  \1 


»  *•  *.• 

•  '  .*  V 


I 


NUM>0 
TYPE  1040 

READ(05.1410,ERR>30)  DEMI 
TYPE  1600 

IFCDEMKD.EQ.'O' .OR.DEMKD.EQ.'qdCO  TO  520 
IF<DEMld).EQ.'FTP'.OR.DEMld).EO.'ftp'>GO  TO  50 
NUN>NUH«1 

GO  TO  (35,40,45)  NUN 

TYPE  1340 

TYPE  1500 

GO  TO  32 

TYPE  1350 

TYPE  1500 

GO  TO  32 

TYPE  1045 

TYPE  1360 

READ (05, 1400, ERR>45)  INPUT 
TYPE  1600 

IFdNPUTd)  .EQ. '0' .OR.INPUTd)  .EO. 'q' >G0  TO  520 
IFdNPUTd)  .EO.  '  Y' .OR.INPUTd)  .EG. 'y' >G0  TO  25 

•  •..  DENO  -  CONNECTING  TO  A  FOREIGN  HOST 

NUn>0 

TYPE  1050 

READ(0S,1420,ERR>S5)  OEMS 


•-.-A 

^  •  •  •  • 
V  »  •  *  » 

*  V  - 

>.  .sV. 


.'.y. 


TYPE  1600 

IF<0EH3(1>  .EQ. '0' .OR.OEMad)  .EQ. 'q' >G0  TO  520 

IF(DEH3(1} .EQ.'CONNE' .AND.DEH3(2>.EC.'CT  IS' .AH0.DEH3C3> .EQ. 'IE' .0 
1R.0EK3(1} .EQ.'eonn*' .AN0.DEM3<2> .EQ. 'et  ia' . AND.DEM3(3) .EO.'la'>CO 
2  TO  75 
KUM«NUH*1 

GO  TO  (60.65,70)  HUM 
60  TYPE  1340 
TYPE  1505 
GO  TO  57 
65  TYPE  1350 
TYPE  1505 
GO  TO  57 
70  TYPE  1055 
TYPE  1360 

READ (05. 1400, ERR«70>  INPUT 
TYPE  1600 

IF(INPUT(l>.Ea.'a'.OR.INPUT(l).EO.'q'>GO  TO  520 
IF(lMPUT(l).EQ.'Y'.OR.IMPUT<l).EO.'y'>GO  TO  50 
C 

C  DEMO  -  LOGGING  INTO  AH  ACCOUNT  ON  A  FOREIGN  HOST 

C 

75  NUH>0 

80  TYPE  1060 

82  REA0(05.1420.ERR-80>  DEH3 

TYPE  1600 

IF(DEM3(l).Ea.'Q'.0R.DEM3(l).EQ.'q')G0  TO  520 

IF(DEM3(1) .EQ. 'LOG  S' . AND . DEH3(2> .EQ. 'REGNI' .AND.DEM3(3> .EQ. 'F  666 
1' .0R.DEM3(1> .EQ. 'loq  s' . AND.DEH3(2> .EQ. ' ragnl ' . AHD.DEM3(3> .EQ. 'f  6 
266' .0R.DEH3(1} .EQ. ' LOGIN' .AND. DER3(2> .EQ. '  SREG' .AND.DEH3(3> .EQ. 'N 
3IF  6' . OR. DEH3(1> .EQ. 'login' .AND.0EH3(2> .EQ.'  srag' .AND.DEM3(3) .EO. 
4'nl£  6'>G0  TO  100 
NUH«NUH«1 

GO  TO  (85,90,95)  NUH 
85  TYPE  1340 
TYPE  1510 
GO  TO  82 
90  TYPE  1350 
TYPE  1510 
GO  TO  82 
95  TYPE  1065 

TYPE  1360 

READ <05, 1400, ERR -95)  INPUT 
TYPE  1600 

IFdNPUTd)  .EO. '0' .OR.IHPUTd)  .EO. 'q' >G0  TO  520 
IFCINPUTd)  .EQ. 'Y' .OR.IHPUTd)  .PQ. 'y' >G0  TO  75 
C 

C  ••••  DEMO  -  SENDING  A  FILE 

C 

100  NUH>0 
105  TYPE  1070 

107  READ<05,1470,ERR»105)  DEM4 

TYPE  1600 

IFCDEHACl)  .EO. '0' .OR.DEHAd)  .EQ. 'q' >G0  TO  520 

IF(DEH4d>  .EO.  'SEND  '  .  AND .DEMA (2)  . EQ. ' HOHEW'  .AND.DENAO)  . EQ .  'ORK.E 


1' .AND.DEH4<4> .EO. 'XE' .□R.OE114Cl> .EQ. 'sand  ' .AND.DEM4(2> .EQ. 'hoaaw' 
2.AND.DEM4(3> .EQ. 'ork.a' .AN0.DEM4<4) .EQ. 'xa' }G0  TO  125 
NUH«MUH«1 

GO  TO  (110.115,120)  HUM 
110  TYPE  1340 
TYPE  1510 
GO  TO  107 
115  TYPE  1350 
TYPE  1510 
GO  TO  107 
120  TYPE  1075 
TYPE  1360 

READ (05. 1400, ERR> 120)  INPUT 
TYPE  1600 

IF(INPUT(l).EO.'Q'.OR.IMPUT(l)-EO.'q')GO  TO  520 
IFdNPUTd)  .EO. 'Y' .OR.lMPUT(l) -EQ. 'y' )G0  TO  100 
C 

C  DEMO  -  RETRIEVING  A  FILE  WITH  FTP 
C 

125  NUH>0 
130  TYPE  1080 

132  READ(05.1470,ERR>130)  DEH4 

TYPE  1600 

IF(DEH4(1) .EQ.'Q' .0R.DEH4(1) .EQ.'q')CO  TO  520 

IF(DEM4(1) .EQ.'GET  W' .AND.DEH4(2) .EQ.'TGGT.' .AND.DEM4(3) .EO. '1  TTG 
1' .AND.DEM4(4) .EO . 'G . 1 ' . OR . DEH4(1) .EO . 'gat  w' . AND.DEM4(2) .EQ. 'tggt. 
2' .AND.DEM4(3) .EQ.'l  ttg' . AND .DEM4(4) .EQ. ' g . 1 ' ) GO  TO  150 
NUH«NUH«1 

GO  TO  (135,140.145)  NUN 
135  TYPE  1340 
TYPE  1510 
GO  TO  132 
140  TYPE  1350 
TYPE  1510 
CO  TO  132 
145  TYPE  1085 
TYPE  1360 

READ(0S,1400,ERR>145)  INPUT 
TYPE  1600 

IFdNPUTd)  .EQ. 'Q' .OR.INPUT(l)  .EO. 'q' )G0  TO  520 
IFdNPUTd)  .EO. 'Y' .OR.INPUTd)  .EQ. 'y' )C0  TO  125 
C 

C  •••*  DEMO  -  CLOSING  A  CONNECTION 

C 

150  NUH*0 
155  TYPE  1090 

157  READ(05,1410,ERR«155)  DEMI 

TYPE  1600 

IF(DEM1 (1) .EQ. 'Q' .OR.DEMl (1) .EO. 'q' )G0  TO  520 
IF(DEM1(1) .EO. 'BYE' .OR.DEMld) .EQ. 'bya' )G0  TO  175 
NUM-HUM*! 

GO  TO  (160,165,170)  NUM 
160  TYPE  1340 
TYPE  1510 
GO  TO  157 


165  TYPE  1350 
TYPE  1510 
GO  TO  157 
170  TYPE  1095 
TYPE  1360 

READ (05, 1400. ERR> 170)  INPUT 
TYPE  1600 

ZF(ZNPUT(l>.EQ.'Q'.OR.INPUT(l).EQ.'q'>GO  TO  520 
IFdHPUTdJ.EQ.'Y'.OR.IMPUTCD.EQ.'yMGO  TO  150 
C 

C  DEMO  -  LEAVING  FTP 

C 

175  NUH'O 
180  TYPE  1100 

182  READ (05. 1460, ERR« 180)  DEMI 

TYPE  1600 

IF(DEHl(l>.Ea.'Q'.OR.OEMl(l>.EQ.'q'>GO  TO  520 
ZF(DEM1(1> .EO. 'QUIT' .OR. DEHKl) .EQ. 'quit' >C0  TO  200 
NUM>NUH«1 

GO  TO  (185.190,195)  NUN 
185  TYPE  1340 
TYPE  1505 
GO  TO  182 
190  TYPE  1350 
TYPE  1505 
GO  TO  182 
195  TYPE  1105 
TYPE  1360 

READ(05,1400,ERR«195)  INPUT 
TYPE  1600 

IFdMPUTd)  .EQ. 'Q' .0R.INPUT(1>.E0. 'q')GO  TO  520 
IFdNPUTd)  .EO. 'Y' .OR.IMPUTd)  .EO. 'y' >60  TO  175 
200  NUN-0 
205  TYPE  1110 
C 

C  SIGN-OFF  ROUTINE 
C 

500  TYPE  1240 
TYPE  1370 

REA0(05.1400,ERR-510)  INPUT 
510  RETURN 
520  TYPE  1250 
TYPE  1370 

READ(05,1400,ERR»530)  INPUT 
530  RETURN 
C 
c 

c  ....... ..formats  FOR  FTP  SUBROUTINE--...-----.-...-............... 

C 

C  ----  INTRODUCTION 

C 

1000  FORMAT('  FTP  -  FILE  TRANSFER  PROTOCOL',//, 

1'  FTP  ia  a  program  aaployod  to  tranafar  fllaa  around  tha  nat.  Thi 
2a  can  ba  dona',/,'  from  within  tha  aaaa  hoat  or  batwaan  two  diffar 
3ant  hoata.  It  doaa  nacaaaitata' , / , '  that  you  hava  accaaa  to  a  dir 


1  00 


4aetory  on  oach  boat  (tho  diractory  which  has  tha',/,'  aatarial  you 
S  daslra  and  tha  diractory  you  wish  tha  aatarial  to  ba  transfarrad' 
6,/.'  to.',//, 

7'  Tha  following  prompts  ara  uniqua  to  FTP:',//, 

8'  FTP>  FTP  coanand  laval  prompt.',/, 

9'  use- ISIS. ARPA>  Foraign  host  coaaand  laval  prompt.',//) 

C 

c  FTP  COMMANDS 

C 

1010  format:'  Tha  following  commanda  ara  paculiar  to  FTP.',/, 

1'  Coanand  Uaa',/, 

2'  FTP  Invoka  tha  FTP  protoeal . ' , / , 

3'  CONNECT  Connacta  you  from  tha  local  host  (tha  ona  you  loggad 

4  into)  to  tha',/, 

S'  foraign  host  (tha  ona  you  ara  trying  to  got  to).',/, 

6'  SEND  Sanda  a  fila  from  your  local  account  to  tha  ronota  a 

7ccount . ' , / , 

8'  GET  Ratriovos  a  fila  from  tha  romota  account  to  your  loc 

Sal  account.',/, 

•'  BYE  Diaconnacta  you  from  tha  foraign  host.',/, 

1'  DISCONNECT  Sana  aa  BYE',/, 

2'  QUIT  Laavaa  FTP',/, 

3'  EXIT  Sana  aa  QUIT',//) 

C 

C  DEMO  -  ENTERING  FTP 
C 

1040  format:'  NOTE:  YOU  MAY  QUIT  THE  FOLLOWING  DEMONSTRATION  AT  ANY  TI 
IME,  SIMPLY  BY',/,'  TYPING  A  “Q"  FOLLOWED  BY  A  CARRIAGE  RETURN,  IN 
2REPLY  TO  ANY  OF  THE  PROMPTS,',//, 

3'  Harm  wa  go.  To  bagin  with,  wa  naad  to  gat  from  tha  Exacutiva  La 
4val  to  tha  FTP',/,'  Command  Laval.  Wa  do  this  by  antaring  "FTP”  a 
Sftar  tha  “0"  prompt.  Co  ahaad.',/,'  0',S> 

104S  format:'  What  you  should  hava  typad,  was:  FTP<CR>',//) 

C 

C  ••••  DEMO  -  CONNECTING  TO  A  FOREIGN  HOST 
C 

1050  format:'  USC-ISl.ARPA  FTP  uaar  procass  6 (405) -4 ' , / , '  FTP>',//, 

1'  Vary  good.  Now  wa  ara  at  tha  FTP  Command  Laval  prompt.  At  this 
2  point,  wa',/,'  want  to  connact  to  tha  dasirad  foraign  host.  Lat' 
3's  uaa  ISIE. ' ,//, 

4'  FTP>',0) 

1055  format:'  What  you  should  hava  typad,  was:  CONNECT  ISIE<CR> ' , / / ) 

C 

C  ••••  DEMO  -  LOGIN  AT  FOREIGN  HOST 
C 

1060  format:'  Connaction  opanad  (Assuming  TYPE  L  36,  MODE  3,  STRU  P)'./ 
1,'  <  USC-ISIE . ARPA  FTP  Sarvar  Procass  52(27) -7  at  (today' 'a  data  6 
2  tins) ' ,//, 

3'  USC-ISIE. ARPA>' ,//, 

4'  Our  connaction  is  now  opan  and  wa  ara  ready  to  log  into  an  accou 
5nt  on',/,'  this  foreign  host.  Unlike  tha  ISIA  host,  other  hosts  ma 
6y  require  tha',/,'  login  to  bagin  with  either  LOGIN  or  LOG.  Let*' 
7s  use  the  SREGNIF  account',/,'  which  has  a  password  of  666  (the  nu 
Saber  of  tha  beast).',//, 

9'  USC-ISIE. ARPA> ' .S) 


106S  FORMAT ('  What  you  ahould  hava  typad,  waa:',/, 

1'  LOG  SREGNIF  666  or  LOGIN  SREGNIF  666', //> 

C 

C  >•••  DEMO  -  SENDING  A  FILE 
C 

1070  FORHATC'  OK.  Now  wa  ara  raady  to  aand  a  fila  to  tha  foraign  host. 
2  Wa  do  thla  with',/,'  tha  SEND  coaaand  £ollowad  by  tha  ^llanaaa  w 
3a  ara  sanding  followad  by  tha',/,'  filanaaa  it  is  to  hsva  st  tha  r 
aanota  host.  NOTE:  If  a  fila  nasa  for  tha',/,'  foraign  host  is  no 
St  spacifiad,  it  will  kaap  tha  asaa  naaa.  Lat"a  sand',/,'  HOMEWOR 
6K.EXE. ' ,//, 

7'  USC-ISIE.ARPA>' ,S) 

1075  FORHATC'  What  you  should  hava  typad,  was:',/,'  SEND  HOMEWOR 

1K.EXE<CR>  or  SEND  H0MEW0RK.EXE  HOMEWORK .EXE<CR> ', //> 

C 

C  ••••  DEMO  -  RECEIVING  A  FILE 

C 

1080  FORMAT ('  <  Pagad  Stora  of  <SREGNIF>H0MEW0RK .EXE . 1 :P777700; AUDR  sta 
Irtad.',/,'  <  Tranafar  coaplatad.  Sl2  (36>  bytas  tranafarrad. ' , /, 
2'  USC-ISIE.ARPA>',//, 

3'  Vary  good.  Wa  ara  alaost  dona  with  this,  but  bafora  wa  laava,  1 
•at' 'a  try',/, 

4'  GETting  fila  WTCGT.l  to  a  local  fila  of  TTGG.l.  Unfortunatly ,  w 

•a  aust',/, 

S'  antar  both  fila  nasas  in  this  casa  (thara  is  no  dafault) . ' , // , 

7'  USC-1SIE.ARPA>' ,*) 

1085  FORHATC'  What  you  ahould  hava  typad,  was:  GET  WTGCT.l  TTCG.1<CR>', 
1//) 

C 

c  ••••  DEMO  -  LEAVING  FTP 
C 

1090  FORMATC'  <  Pagad  ratrlava  of  <SREGMIF>WTGGT. 1 , 1  startad . ' , / , '  <  Tr 
lansfar  coaplatad.  IS  (36)  bytas  transfarad.',//, 

2'  OK.  Now  wa  ara  raady  to  quit.  Laava  tha  foraign  host  with  BYE. 
3' ,//, 

4'  USC-1SIE.ARPA>' 

1095  FORHATC'  What  you  ahould  hava  typad,  was:  BYE<CR>',//) 

1100  FORMATC'  FTP>',//,'  Now  laava  FTP  with  tha  quit  coaaand.',//,'  FTP 

!>',») 

1105  FORMATC'  What  you  should  hava  typad,  was:  0UIT<CR> ' , // > 

1110  FORHATC'  0',//,'  Which  puts  us  back  at  tha  Exacutiva  Laval  coaaa 
Ind  proapt  of  our  local  host.',//) 

C 

C  ••••  SIGN-OFF  ROUTINE 

C 

1240  FORHATC'  This  concludes  tha  FTP  portion  of  this  tutorial.  Raaamba 
Ir  to  usa  tha  ”?"  if',/,'  you  ara  not  sura  what  tha  syataa  ia  askin 
2g  for' ,//) 

1250  FORHATC'  Sorry  to  soa  you  quit  early.  Good  bys.',//> 

1300  FORMATC'  WOULD  YOU  LIKE  TO  CONTINUE  CY  or  N>?',S> 

1320  FORMATC'  WOULD  YOU  LIKE  A  DEMONSTRATION  OF  THE  ABOVE  COMMANDS  CY  o 
Ir  N) ?' ,») 

1340  FORHATC'  EGAD,  Lata  night  last  night,  or  what?',//> 

1350  FORMATC'  You  still  don''t  hava  it  right.',//) 

1360  FORMATC'  CARE  TO  TRY  AGAIN  CY  or  N)7',S) 


uluiuiono  *■  u>  uuionnn  >-■  ononnnnn 
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.............telnet  <TN)  subroutine...... 

THIS  SUBROUTINE  EXPLAINS  AND  DEMONSTRATE 


DIMENSION  INPUT ( 1 > . DEMI ( 1 ) , DEM2 (2> 

INTRODUCTION  TO  TN 

TYPE  1600 
TYPE  1000 
TYPE  1300 

READ(0S,1400.ERR-10)  INPUT 
TYPE  1600 

IFCINPUTd) .EO. 'N' .0R.INPUT<1> .EQ. 'n' )G0  TO  520 
TYPE  1010 

READ(0S,1400,ERR«2S)  INPUT 
TYPE  1600 

IFCINPUTd) .EO. 'N' .OR.INPUTCl) .EQ. 'n' )G0  TO  520 

••••  DEMO  -  ENTRY  INTO  TN 

NUM-0 
TYPE  1040 

READ<05,143O,ERR.3O)  0EM2 
TYPE  1600 

IF<DEM2<1) .EQ. '0' .0R.DEM2<1) .EO.'q' )G0  TO  520 

IF<DEM2<1) ,EQ. 'TN  IS' . AND . DEM2 (2) . EO. ' IE' . OR . DEM2 ( 1 > . EO . ' tn  la 
lD.0EM2(2>.EQ.'i«')G0  TO  SO 
NUM-NUM*! 

GO  TO  (3S,40,4S>  NUN 

TYPE  1340 

TYPE  1500 

GO  TO  32 

TYPE  1350 

TYPE  1500 

GO  TO  32 

TYPE  1045 

TYPE  1360 

READ(05,1400,ERR*45)  INPUT 
TYPE  1600 

IFCINPUTd)  .EO. 'Q' .OR.INPUTd)  .EO. 'q' )G0  TO  520 
IFCINPUTCl) .EO. ' Y' .OR.INPUTCl) .EO. 'y' >G0  TO  25 

••••  DEMO  -  SHOW  COMMAND 


NUM-0 
TYPE  1050 

READ<05,1430,ERR-55)  DEM2 
TYPE  1600 

IF(DEM2(1) .EO. '0' .0R.DEM2<1) .EO. 'q' )G0  TO  520 

IFCDEM2C1) .EO. 'SHOW  ' . AND.DEM2<2> .EO. 'ME' .0R.DEM2(1 ) .EO. 'show 


10.DEH2(2> .EQ. '■•' >C0  TO  7S 
NUn>NUH«l 

GO  TO  (60,65.70)  NU« 

60  TYPE  1340 
TYPE  1500 
CO  TO  57 
65  TYPE  1350 

TYPE  1500 
GO  TO  57 
70  TYPE  1055 

TYPE  1360 

READ(05,1400,ERR*70)  INPUT 
TYPE  1600 

IFdNPUTd)  .EO. 'Q' .OR.IMPUTd)  .EQ, 'q' >G0  TO  520 
IFdNPUTd)  .EO.  '  Y' .OR.lNPUTd)  .EQ. 'y' >G0  TO  50 
C 

C  *•••  DEMO  -  LEAVING  ">>••  LEVEL  OF  TN 

C 

75  NUM-0 

80  TYPE  1060 

82  READ <05, 1460, ERR-80)  DEMI 

TYPE  1600 

IF(DEH1  d>  .EO. ‘O' .OR.DEMld)  .EQ. 'q' >G0  TO  5;:0 
IF<DEMld>  .EQ. 'LOGO' .OR. DEMI  d>  .EQ. 'logo' )G0  TP  100 
NUM>NUH«1 

GO  TO  (85,90,95)  NUM 
85  TYPE  1340 

TYPE  1500 
GO  TO  82 
90  TYPE  1350 

TYPE  1500 
GO  TO  82 
95  TYPE  1065 

TYPE  1360 

READ<05.1400,ERR»95)  INPUT 
TYPE  1600 

IFdNPUTd)  .EQ. 'Q' .OR.INPUTd)  .EQ. 'q' )G0  TO  520 
IFCINPUTd)  .EQ.  '  Y' .OR.INPUTd)  .EQ. 'y' )C0  TO  75 
C 

C  ••••  DEMO  -  LEAVING  TN 

C 

100  NUM«0 

C 

C  ••••  SIGN-OFF  ROUTINE 

C 

500  TYPE  1240 

TYPE  1370 

READ<05,1400.ERR*510)  INPUT 
510  RETURN 

520  TYPE  1250 

TYPE  1370 

READ<05,1400,ERR»530)  INPUT 
530  RETURN 

C 

c 


105 
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c  •••••••FORMATS  FOR  TN 

C 

C  ••••  INTRODUCTION 

C 

1000  FORMATC  TN  (TELNET)',//. 

1'  TN  is  •  program  or  syst-as  which  allows  a  usar  on  ona  host  to  cos 
2Bunlcato' . /, 

3'  with  anothar  host.  It  actually  appaars  as  though  you  loggad  int 
4o  tha' ,/, 

S*  foraign  host  diraetly  from  a  "TAC**  rathar  than  through  another  h 
Goat .  Tha  * , / , 

7*  systaa  also  has  tha  advantaga  at  Baking  your  control  characters 
•do  what  you  ',/, 

S'  axpact  thSB  to  do,  avan  if  tha  control  characters  on  tha  foreign 

•  host  are  ' , / , 

9'  different .',// . 

•'  Using  TN  is  actually  quite  siaple.  All  you  need  do  is  type  "TN 

•  <hoat>“  after',/, 

1'  the  Executive  Level  prompt  followed  by  a  carriage  return.  If  a 
•pathway  to  the'./, 

2'  foraign  host  la  available  and  the  host  ia  up,  you  will  connect  t 
•o  the  foreign'./, 

3'  host  ready  to  log  into  a  directory.  When  you  are  finished,  simp 
•ly  log  out  of',/, 

4'  the  diractory,  than  type  “EXIT"  after  tha  "TM>"  prompt.  You''ra 

•  back  in  your',/, 

5'  own  directory.',//) 

C 

C  ....  TS  COMMAND  CHARACTERS 

C 

1010  F0RMAT('  It  should  be  noted,  that  since  all  control  characters  are 

1  meant  to',/,  '  behave  on  tha  foraign  host  as  they  would  on  tha 

2  local  host,  you  cannot  use',/,'  "“C"  to  return  to  your  own  Exacut 
3ive  Laval.  There  is  a  control  character',/, 

4'  provided  for  this  purpose:  ""C  -  control  *  followed  by  a  C,  but 
•you  should',/, 

5'  really  log  out  of  the  foreign  host  properly,  if  possible.',//, 

6'  Would  you  like  a  brief  demonstration  of  TN  (Y  or  N)?',S) 

C 

C  ••••  DEMO  -  ENTERINC;  TN 

C 

1040  format:'  ok.  First  type  TN  and  the  name  of  the  host  you  wont  to  g 
lo  to.  Wa''ll  use',/,'  ISIE  for  this  demonstration.',//,'  e',S) 
1045  format:'  What  you  should  have  typed,  was:  TN  ISIE<CR> ' , / / ) 

C 

C  ••••  DEMO  -  LOGGING  IN 

C 

1050  format:'  Trying...  Open',//, 

1'  ISIE-SYSTEM-E,  TOPS-20  Monitor  5(7430)',/, 

2'  Thera  are  37»10  jobs  and  the  Load  Average  is  1.66',//, 

3'  After  login,  type  "HELP  ?"  followed  by  a  carriage  return  for',/, 
4'  a  Hat  of  on-line  help  topics.',//,'  B',//, 

5'  Looks  familiar  ah?  Now  we  can  log  into  a  directory  on  this  hos 
•t .  Use' , / , 

6'  the  directory  "SHOW"  with  the  password  "ME".  Did  you  realize  th 
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•at  you  n«ad'./. 

8'  not  use  the  command  “LOG"  or  "LOGIN"  to  log  on  to  an  account?  A 
911  that  is' , / , 

•'  really  required  is  the  account  name  and  the  password.  Try  it  he 
Ire.',//,'  0',S) 

loss  FORMAT ( '  Whet  you  should  have  typed,  was:  SHOW  HE<CR>',//) 

C 

C  ••••  DEMO  -  SHOW  COMMAND 

C 

1060  format:'  Job  SI  ON  tty234  (date  and  time)',/, 

1'  Previous  LOGIN:  (data  and  time)',/, 

2'  PS:  <SH0W>',/, 

3'  37  Pages  assigned',/, 

4'  200  Working  pages,  200  Permanent  pages  allowed',/, 

S'  1S638  Pages  free  on  PS:,  2S3S4  pages  used.',/, 

6'  No  new  mail  exists',/, 

7'  With  clothes  new  are  the  bast,  with  friends  the  old  are  best.',/, 
8'  End  of  LOGIN. CMD. 1' ,//, '  0',//, 

9'  Very  good.  Well  I  promised  this  would  be  brief;  brief  it  will  b 
•e.  While',/,'  you  are  on  the  foreign  host,  everything  works  3ust 
las  it  would  on  your  own',/,'  host.  OK.  Let''s  go  home.  First  we 
2  log  out.',//,'  0',S) 

106S  format:'  What  you  should  have  typed,  was:  L0G0<CR> ' , / / ) 

C 

C  ••••  DEMO  -  LEAVING  THE  “>>"  LEVEL  OF  TN 

C 

1240  format:'  0',//,'  Welcome  home.  Note:  If  when  you  had  entered  TN 
•initially,  you  had  entered',/, 

1'  "TN  <CR>"  you  would  have  gotten  the  TN>  prompt.  This  is  fine.  J 
•ust  give  the',/, 

2'  host  name  at  this  point.  Upon  logout  you  will  be  left  at  the  TN> 

•  prompt . ' , / , 

3'  Another  EXIT  here  and  you  are  back  home.',//, 

4'  This  concludes  the  TN  portion  of  this  tutorial.  Just  remember  t 
•he  **C',/, 

5'  control  character  if  you  get  stranded  while  in  TN.',//) 

12S0  format:'  Sorry  to  see  you  quit  early.  Good  bye,',//) 

1300  format:'  would  you  like  to  continue  :Y  or  N)?',S) 

1340  FORMAT:'  What  a  severe  case  of  fumble  fingers  you  have.',//) 

1350  format:'  You  still  don''t  have  it  right.',//) 

1360  FORMAT^'  CARE  TO  TRY  AGAIN  (Y  or  N)?',S) 

137C  format:'  ENTER  ANY  KEY  TO  CONTINUE', S) 

1400  FORMAT(lAl) 

1430  F0RMAT:2A5) 

1460  F0RMAT:1A4) 

1500  format://,'  @',s) 

1505  format://,'  TN>',S) 

1600  format:////) 
end 


c 

SUBROUTINE  APHOTOCOUH) 

C 

c  ...........photo  SUBROUTINE"**— 

C  *  THIS  SUBROUTINE  EXPLAINS  AND  DEMONSTRATES  THE  "PHOTO"  PROGRAM  * 


C 

DIMENSION  INPUTd) 

C 

C  ••••  INTODUCTION  TO  PHOTO 
C 

TYPE  1600 
TYPE  1000 
TYPE  1300 

REA0(05,140O.ERR*10)  INPUT 
TYPE  1600 

IF(lNPUT<l).EQ.'0',0R.lNPUT<l>.E0.'q')G0  TO  530 
C 

C  ••••  VIEWING  /  CHANGING  /  BEEPS 

C 

10  TYPE  1010 

C 

C  ••••  SIGN-OFF  ROUTINE 

C 

500  TYPE  1240 

TYPE  1370 

READ (05, 1400, ERR*S10)  INPUT 
510  RETURN 

520  TYPE  1250 

TYPE  1370 

READ <05,1 400, ERR*530)  INPUT 
530  RETURN 

C 
C 

C  .......formats  for  photo  SUBROUTINE****—**********..*....... 

C 

C  ....  INTRODUCTION 

C 

1000  FORMAT ('  PHOTO',//, 

1'  PHOTO  is  s  proqrsm  which  Allows  you  to  rscord,  or  sovs,  portions 
2  of  s' ./, 

3'  computer  session.  It  is  invoked  by  typing  "PHOTO"  <CR>  at  the  " 
46"  or',/, 

5'  Executive  Level  prompt.  You  will  then  be  asked  to  supply  a  file 
6  name' , / , 

7'  to  which  the  PHOTO  session  is  to  be  recorded.  PHOTO  will  record 
8  what' , / , 

9'  you  type,  as  well  as  the  responses  back  from  the  computer.  Uhil 
*e  you',/, 

1'  are  in  PHOTO,  everything  will  work  as  normal.  The  control  chara 
2cters' , / , 

3'  still  remain  as  before  and  you  still  get  the  same  prompts.  What 
4  this'.,/, 

5'  means  is,  you  cannot  use  *C  to  exit  from  PHOTO.  The  normal  mea 

0 


6ns  o£' , 

T  axiting  PHOTO  is  to  typa  "POP"  followad  by  a  <CR>  at  tha  "8"  pro 
Sapt . ' J , 

9'  Thara  is  ona  control  charactar  paculiar  to  PHOTO;  (control  Y 
•>.  It',/, 

1'  is  usad  to  suapand  tha  PHOTO  aasaion.  Whan  you  arm  raady  to  con 
2tinua' ,/, 

3'  recording,  input  another  ^Y.',//, 

4'  One  additional  note.  You  must  first  POP  out  of  PHOTO  before  you 
5  can ' , / , 

6'  log  out. ' ,//) 

C 

C  ••••  BEEPS  ETC 
C 

1010  F0RHAT('  If  you  check  your  directory  after  POPing  out  of  PHOTO,  yo 
lu  will  sea  tha  new',/, 

2'  file.  You  can  usa  tha  TYPE  coaaand  or  enter  XED  to  view  it.  XE 
3D  will  also',/, 

4'  allow  you  to  adit  it.',//, 

5'  While  in  PHOTO  tha  systaa  beeps  at  you  (every  30  seconds  by  dafa 
Suit) .  If  you' ,/, 

6'  daaira  to  change  tha  frequency  of  tha  beeps  or  eliminate  them  en 
Ttirely,  you',/, 

8'  use  "/INTERVAL: (frequency  in  seconds)"  following  PHOTO:',//, 

9'  8PH0T0/ INTERVAL : 0  -  Removes  the  beeps',//, 

*'  0PHOTO/INTERVAL : 60  -  Gives  you  beeps  once  a  minute',//) 

C 

C  SIGN-OFF  ROUTINE 

C 

1240  FORMAT:'  This  concludes  the  PHOTO  section  of  this  tutorial',//) 
1250  format:'  Sorry  you  have  to  leave  so  soon.  Hurry  back.',//) 

1300  format:'  enter  a  "0"  TO  OUIT,  ANY  OTHER  KEY  TO  CONTINUE.  ',») 

1370  format:'  enter  ANY  KEY  TO  RETURN  TO  THE  MAIN  MENU:  ',S) 

1400  FORMAT (lAl) 

1600  format:////) 

END 


c 

c 

SUBROUTINE  ARMNO(DUM) 

C 

c  ...................reHIND  SUBROUTINE-**-  — 

C  •  THIS  SUBROUTINE  EXPLAINS  AND  DEMONSTRATES  THE  REMIND  MESSAGE  ■ 
C  *  TICKLER  SYSTEM. 

C 

c 

DIMENSION  INPUT (1>, DEMI <2>,DEM2<1>.0EM3(2> 

C 

C  INTRODUCTION  TO  REMIND 

C 

TYPE  1600 
TYPE  1000 
C 

C  ••••  QUERY  TO  SEE  IF  USER  UOULD  LIKE  TO  CONTINUE 

C 

TYPE  1300 

READ(0S.1400.ERR*10>  INPUT 
TYPE  1600 

IFCINPUTd) .EQ. 'N' .OR.INPUT(l) .EQ. 'n' )G0  TO  300 
C 

C  ••••  DEMONSTRATION  OF  ENTERING  REMIND  PROGRAM 

C 

10  NUH-0 

30  TYPE  1010 

READ<0S,1410,ERR*30}  DEMI 
TYPE  1600 

IF<DEMl<l).EO.'Q'.OR.DEMl<l).EO.'q')GO  TO  300 

IF<DEK1(1) .EQ. 'REHIN' .AND. DEMI (2> .EQ. 'D' .OR. DEMI ( 1 > . EQ . ' r*aln ' .AN 
lD.DEMl(2).EQ.'d')G0  TO  SO 
NUM-NUM-1 

GO  TO  <3S,40.4S)  NUH 
35  TYPE  1340 

GO  TO  30 
40  TYPE  1350 

GO  TO  30 
45  TYPE  1020 

TYPE  1360 

READ<05,1400,ERR*45)  INPUT 
TYPE  1600 

IFCINPUTd) .EQ. 'O' .OR.INPUT(l) .EO. 'q' >G0  TO  300 
IF<INPUT<1) .EQ. ' Y' .OR.INPUT(l) .EO. 'y' >G0  TO  10 
C 

C  ••••  DEMONSTRATION  OF  REMIND  OPTIONS 

C 

SO  NUM-0 

55  TYPE  1030 

60  READ (05, 1400, ERR*65>  DEH2 

TYPE  1600 

IF(DER2(1) .EQ. '0' .0R.DEH2<1) .EQ. 'q' )G0  TO  300 
IF(DEM2(1) .EQ. '?' )G0  TO  80 
65  TYPE  1040 

GO  TO  60 


70  MUM«0 

80  TYPE  1050 

TYPE  1055 
TYPE  1370 

READ(05.1400.ERR>90)  INPUT 
TYPE  1600 

IFCINPUTd)  .EQ. 'Q' .OR.INPUTd)  .EQ.'q'lCO  TO  300 
C 

C  DEMONSTRATION  OF  CREATING  A  REMIND  MESSAGE 

C 

90  TYPE  1060 

READ<05.1410.ERR>90>  DEM3 
TYPE  1600 

IF(DEM3<1>  .EQ. 'Q' .0R.DEM3d)  .EO. 'q' >C0  TO  300 

IF(DEH3d> .EQ. 'GREAT' .AND.DEH3<2> .EQ. ' E' . OR . DEM3 d > .EQ. 'craat' .AN 
1D.DEM3(2) .EQ. '•' )G0  TO  ISO 
NUM-NUM*! 

GO  TO  dl0,llS.120)  NUM 
110  TYPE  1350 
GO  TO  90 
115  TYPE  1340 
GO  TO  90 
120  TYPE  1065 
TYPE  1360 

READ(0S,1400,ERR*120)  INPUT 
TYPE  1600 

IFCINPUTd)  .EO. '0' .OR.INPUTd)  .EO. 'q' )G0  TO  300 
IFCINPUTd)  .EQ.  '  Y' .OR.INPUTd)  .EQ. 'y' >G0  TO  90 
C 

C  ••••  DEMONSTRATE  WRITING  A  MESSAGE 
C 

ISO  NUH>0 

200  TYPE  1080 

210  TYPE  1370 

READ <05, 1400, ERR -220)  INPUT 
TYPE  1600 

IFClNPUTd)  .EQ. '0' .OR.INPUTd)  .EQ. 'q' )G0  TO  300 
220  TYPE  1090 

C 

C  SIGN-OFF  ROUTINE 

C 

240  TYPE  1100 

TYPE  1380 

READ<05,1400,ERR»260)  INPUT 
260  RETURN 

300  TYPE  1200 

320  TYPE  1380 

READ<05,1400,ERR»340)  INPUT 
340  RETURN 

C 

C  ••••  EXPLANATION  OF  REMIND 

C 

1000  F0RMAT<20X, 'REMIND' ,//, 

1'  REMIND  ia  a  program  which  allowa  you  t.o  create  reminders  for  yo 
•urself  (or ' , / , 


2'  o^hars)  which  will  ba  aw:i%  by  hha  ayabaa  ab  a  apacifiad  biaa. 
•You  Bay',/, 

3'  achadula  a  raaindar  bo  ba  aanb  only  onca,  or  aa  fraquanbly  a 
•a  you  Ilka.',/, 

4*  You  Bay  alao  aalaeb  whabhar  bha  raaindar  will  ba  Ballad  bo  your 

•  aailbox,  or',/, 

S'  dlaplayad  on  your  barainal  aeraan,  or  bobh.',//> 

1010  F0RMAT('  To  uaa  bha  REMIND  propraa,  bypa  “REMIND  <CR>“  ab  bha  E 
•xaeubiva  Laval  proapb • ' , /  , 

1'  Go  ahaad  and  bry  lb  (Ranaabar,  you  can  alwaya  qulb  by  anbaring  a 

•  “0“  ab  any',/, 

2'  proapb.):',/,'  ■',•) 

1020  F0RMAT('  Whab  you  ahould  hava  bypod  waa:  REMIND  <CR>',//> 

1030  F0RHAT('  Afbar  you  hava  anbarad  “REMIND  <CR>“  bha  following  will 
lappaar  on  your  aeraan:',//, 

2'  REMIND  VERSION  1.0(2) -3',/, 

3'  MONDAY,  NOVEMBER  2S,  1985  1:42AH',/, 

4'  REMIND!',//, 

5'  Typing  a  quaabion  Bark  (7)  ab  any  poinb  in  bha  ranin  progran  wll 
■1  diaplay',/, 

6'  varloua  avallabla  opblona.  Try  lb  youraalf:  ',//, 

7'  REMIND!', 8) 

1040  FORMAT ('  Whab  you  ahould  hava  bypad  waa  a  quaabion  nark. ',/, 'Try 
lagaln,  plaaaa:  ',//,'  REMIND!',*) 

1 050  FORMAT  < '  CREATE ' , / , 

1'  DAYTIME',/, 

2'  DELETE',/, 

3'  EXIT',/, 

4'  HEADERS',/, 

5'  HELP',/, 

6'  MODIFY',/, 

7'  QUIT',/, 

8'  SURVEY',/, 

9'  TYPE',/, 

•'  UNDELETE',//) 

1055  F0RHAT('  Tha  abova  liab  eonpriaaa  bha  opblona  avallabla  bo  you  in 
•REMIND.  Moab  of  bhaa',/, 

1'  ara  aalf  axplanabory,  howavar,  ib  la  halpful  bo  know  bhab  DAYTIH 
•E  will  boll  you' ,/, 

2'  bha  curranb  axacb  Bonbh,  dabo  and  biaa,  whila  SURVEY  liaba  all  R 
•EMIND  Boaaagoa',/, 

3'  you  hava  aanb  racanbly.  Uaa  bha  HELP  coBBand  bo  find  oub  aboub  b 
•ho  obhor' , /, 

4'  coBBanda  if  you  ara  uncarbaln  of  bhair  aoanlnga. ' , // ) 

1060  F0RMAT('  Lab"a  bry  CREATEing  a  REMIND  aaaaaga.  Typo  CREATE  <CR!  a 
Ifbar',/,'  bha  REMIND!  proapb.',//,'  REMIND!', «> 

1065  FORMATC'  Whab  you  ahould  hava  bypod  waa:  CREATE  <CR!  ',//) 

1080  F0RMAT<'  Tha  REMIND  aaaaaga  foraab  haa  a  nuabar  of  fiolda  for  you 
•bo  onbar  bha',/, 

1'  approprlaba  infornabion  raquaabad.  Ib  la,  again,  fairly  aalf  a 
'xplanabory, ' ,/, 

2'  ao  I  aa  only  going  bo  ahow  you  an  axaapla.  Of  couraa,  you  can, 
•aa  alwaya, ' , /, 

3'  bypa  a  quaabion  mark  if  you  gab  abuck .  Thia  la  whab  a  conplabed 

•  REMIND' ./, 


4'  maaaag*  will  look  lika:',//. 

6'  REMIND>CREATE'./. 

7'  First  raaindar  at:  1234',/, 

8'  First  raaindar  will  ba  sant  Monday,  Novaabar  25,  1985  12:34PH',/, 
9'  Fraquancy  of  raaindars:  ONCE',/, 

•'  Notify  aoda:  HAIL',/, 

1'  To:  JONESDTW',/, 

2'  Subjact:  MEETING  AT  1400  TOMORROW',/, 

3'  Msg:',/, 

4'  •••  HEY,  DAN!!',/, 

5'  I  FORGET  TO  TELL  YOU  WE  HAVE  A  MEETING  ON  THE  JCS  CHANGES',/, 

8'  PROPOSAL  TOMORROW  AFTERNOON.  BE  PREPARED  TO  SUPPORT  YOUR  VIEWS!' 
7./,'  JIM»««',/,'  *2',///, 

8'  Notlca  you  and  tha  REMIND  sassaga  with  a  *2.',//, 

9'  A  word  of  advlca:  Whan  proaptad  for  aoda  of  notification,  you  h 
•ava  thraa',/, 

•'  options:  SEND,  HAIL  or  BOTH.  SEND  will  rasult  in  a  racaipt  only 
•  if  tha' ,/, 

1'  raclpiant  la  loggad  on  to  tha  host  whan  tha  REMIND  is  sant  (it  i 
•s  sant  dlractly',/, 

2'  to  his  scraan  at  sand  tiaa> .  MAIL  causas  tha  REMIND  to  ba  sant 
•only  to  tha',/, 

3'  raclpiant' 'a  sail  box.  BOTH  will  rasult  in  both  SEND  and  HAIL.' 

*,//, 

4'  That''s  all  thara  la  to  it!  Tha  sassaga  is  autosatically  quauad 
•,  than' , /, 

5'  forwardad  at  tha  tina  Indlcatad. ' , //) 

1090  FORMAT!'  Tha  naxt  tlsa  JONESDTW  <Dan>  logs  onto  tha  host  aftar  12: 
134PM',/,'  on  25  Novaabar  1985,  ha  will  ba  told  ha  has  nail  fron  th 
2a  REMIND',/,'  Daason  in  his  MSG  fils.  By  going  into  MSG,  finding  o 
3ut  tha  nusbar  of',/,'  tha  aassaga,  and  giving  tha  "TYPE  (nusbar)  < 
4CR>“  cossand,  tha  REMIND  ',/,'  aassaga  will  ba  printad  out.',//) 
1100  FORMAT!'  This  concludaa  tha  REMIND  portion  of  this  tutorial.',//) 
1200  FORMAT!'  Sorry  to  saa  you  quit  so  soon.  Coodbya . ' , / / ) 

1300  FORMAT!'  Would  you  lika  to  eontlnua  !Y  or  N)?  ' ,S) 

1340  FORMAT!'  No.  Try  again,  plaasa.',//) 

1350  FORMAT!'  Oops!  I''ll  pratand  I  didn''t  saa  that!?',//) 

1360  FORMAT!'  Do  you  want  anothar  chanca  !Y  or  N)?  ',*) 

1370  FORMAT!'  Entar  a  "0"  to  quit,  any  othar  kay  to  continua:  ',•) 

1380  FORMAT!'  Entar  any  key  to  return  to  aaln  aenu:  ',•) 

1400  FORMAT  !1A1) 

1410  FORMAT<2A5) 

1600  FORMAT!////) 

END 


c 

c 

SUBROUTINE  AFNGR(DUH) 

C 

c  ...... ...a... -..-..finger  subroutine— 

C  •  THIS  SUBROUTINE  EXPLAINS  AND  DEMONSTRATES  THE  FINGER  LOCATE 

C  •  AND  IDENTIFY  USER  SYSTEM 


C 

DIMENSION  INPUTCl) .0EM1<2) ,0EM2<3> 

C 

c  •«..  INTRODUCTION  TO  FINGER 
C 

TYPE  1600 
TYPE  1000 
C 

c  — QUERY  TO  SEE  IF  USER  WOULD  LIKE  TO  CONTINUE 
C 

TYPE  1370 

READ <05, 1400. ERR> 10)  INPUT 
TYPE  1600 

IF<INPUT<l).EO.'Q'.OR.INPUT<l).EQ.'q')GO  TO  300 
C 

C  DEMONSTRATION  OF  ENTERING  FINGER  PROGRAM 

C 

10  NUM-0 
30  TYPE  1010 

REA0(0S,1410.ERR«30>  DEMI 
TYPE  1600 

IFCDEHKl)  .EQ. 'Q' .OR.DEMKl)  .EQ. 'q' >G0  TO  300 

IFCDEHKl)  .EQ.  'FINGE'  .AND.  DEMI  (2>  .EO.  'R'  .OR.DEMKl)  .EQ.  '£lng«'  .AN 
1D.DEM1<2) .EQ. 'r' )G0  TO  70 
NUH>NUH«1 

GO  TO  (35.40.45)  NUN 
35  TYPE  1340 
GO  TO  30 
40  TYPE  1350 
GO  TO  30 
45  TYPE  1020 
TYPE  1360 

REA0(05.1400.ERR>45>  INPUT 
TYPE  1600 

IFdNPUTd)  .EQ. '0' .OR.INPUTCl)  .EQ. 'q' )G0  TO  300 
IFCINPUTCl) .EQ. ' Y' .OR.INPUT(l) .EQ. 'y' )G0  TO  10 
C 

C  ••••  DEMONSTRATION  OF  FINGERING  YOUR  HOST 

C 

70  NUM-0 

80  TYPE  1050 

TYPE  1370 

READ<05.1400.ERR«85)  INPUT 
TYPE  1600 

IFdNPUTd)  .EQ. 'Q' .OR.INPUTCl)  .EO. 'q' )G0  TO  300 
85  TYPE  1055 

TYPE  1370 


i 

t 


114 


READC05,1400,ERR*86>  INPUT 
TYPE  1600 

IF(IMPUT<1>  .EO. '0' .OR.lNPUTd)  .EO. 'q' )C0  TO  300 

88  TYPE  10S8 
TYPE  1370 

REA0<0S,140O,ERR«90>  INPUT 
TYPE  1600 

IFdNPUTd)  .EO.  *0' .OR.IHPUTCl)  .EQ. 'q' >C0  TO  300 
C 

C  ••••  DEMONSTRATION  OF  CREATING  A  FINGER. PLAN 

C 

89  NUM«0 

90  TYPE  1060 
READ(0S,141S.ERR«90>  DEM2 
TYPE  1600 

IF<DEM2<1) .EO. '0' .0R.DEM2(1> .EQ. 'q' )C0  TO  300 

IF<DEM2(1) .EQ. 'FINGE' .AND.DEH2(2> .EO. ‘R  JON' .AND.DEH2(3> .EO. 'ESDTW 
1' .0R.DEH2d> .EO. 'flnga' .AND.0EH2C2> .EQ.'r  Don' .AND.  DEH2C3) .EQ.'os 
2dtw'}G0  TO  ISO 
NUH-NUM^l 

GO  TO  <110,115.120)  NUH 
110  TYPE  1350 

GO  TO  90 
115  TYPE  1340 
GO  TO  90 
120  TYPE  1065 

TYPE  1360 

READ(0S,1400,ERR«120>  INPUT 
TYPE  1600 

IF<INPUT<1>  .EQ. '0' .OR.lNPUTd)  .EO. 'q' )00  TO  300 
IF<INPUTd)  .EQ. 'Y' .OR.lNPUTd)  .EO. 'y' )G0  TO  89 
C 

C  ••••  DEMONSTRATION  OF  WHAT  A  FINGER. PLAN  LOOKS  LIKE 
C 

150  NUM-0 

200  TYPE  1080 

C 

C  ••••  SIGN-OFF  ROUTINE 

C 

240  TYPE  1100 

TYPE  1380 

READ<05,1400,ERR>260)  INPUT 
260  RETURN 

300  TYPE  1200 

320  TYPE  1380 

READ<05,1400,ERR=340)  INPUT 
340  RETURN 

C 

C  .........  formats  for  FINGER  SUBROUTINE  . . . 

C 

C  ••..  EXPLANATION  OF  FINGER 

C 

1000  F0RMAT<20X, 'FINGER' .//, 

1'  FINGER  is  a  program  to  halp  locata  and  identify  users  on  a  syst 
.am .  It  IS' , / , 


2'  callad  from  tha  Exacutiva  Laval  by  tha  TINGER  coaaand.  Ita  mam 
•faaturas  ara',/, 

3'  paraonal  naaa  and  llna  loeaton  oubpul:.  FINGER  will  alao  allow  y 
•ou  to  laava  a',/, 

4'  aaaaaga  callad  a  "plan''  In  a  £lla  callad  FINGER. PLAN  to  ba  print 
•ad  out  if',/, 

S'  aoaabody  FINGERa  you  and  you  ara  not  loggad  on.  Thia  flla  ia  a 
•£raa-forB  taxt',/, 

6'  flla  and  tha  flla  protaetion  ahould  ba  at  laaat  77S252  to  allow 
•othar  uaara  to',/, 

7'  raad  it. ' ,//) 

1010  F0RRAT<'  To  FINGER  uaara  on  a  ayataa,  typa  "FINGER  <CR>''  at  tha  E 
•xacutiva  Laval  prompt.',/, 

1'  Go  ahaad  and  try  it  (Raaaabar,  you  can  alwaya  quit  by  antaring  a 
•  "B"  at  any',/, 

2'  prompt .):',/, '  0',*) 

1020  FORHATC'  What  you  ahould  hava  typad  waa:  FINGER  <CR>',//> 

1050  FORMATS  Uaar  Paraonal  nama  Job  Subaya  Idla  TTY  Co 

Inaola  location',/,'  CLYNN  Charlaa  Lynn  IS  PICKLE 

2  344  Batch  job',/,'  HERBERTHK  M.K.  Harbart  37  TYPE 

3  .212  NPS-TAC.ARPAN27' ,/,'  SMTP  Syataa  Utility  6  S 

4MTPSD  .355  Job  0,  OPERATOR,  SYS JOB',/,'  WESTTA  T.A.  WEST 

5  33  XED  211  NPS-TAC.ARPA#13' ,//> 

loss  FORHATC'  Othar  calling  aaquancaa  for  FINGER. PLAN  includa : ' , // , 

1'  0  FINGER  /  <awltchaa>  <uaarnaBa> ' , / , 

2'  0  FINGER  <USERNAME>  /  <SWITCHES> ' , / , 

3'  <USERNAME>  Hay  ba  blank  to  aaan  all  uaara,  or  a  local  uaarnaa 
4a,  or',/,'  a  foralgn  uaarnaaa  of  tha  fora  <uaarnaBa>0<hoat 

S>. ',//,'  If  tha  uaarnaaa  ia  not  apacifiad,  a  taraa  auaaary 

6  of  ',/,'  all  uaara  la  output  ordarad  alphabatieally  by  u 

7aarnana. ' , // ,  If  a  uaarnaaa  la  apacifiad  tha  output  ia  a 

Buch',/,'  Bora  datallad,  ahowlng  tha  normal  ena-lina  job  a 

Statua,',/,'  tha  laat  logout  tiaa  and  lina  if  tha  uaar  la  n 

•ot  log-',/,'  gad  in,  tha  laat  tiaa  tha  mail  waa  raad,  and 

Iwhathar' ,/, '  thara  ara  any  pandlng  aaaaagaa,  and  tha  uaar' 

2' a  ',/,'  currant  FINGER. PLAN. ', //> 

1058  F0RHAT<'  <SWITCHES>  If  no  SWITCHES  ara  apacifiad  tha  dafau 

llta',/,'  ara:  /DETACHED  /NO-OPERATOR.  Spaclfiad  SWITCHES 

2ara',//,'  /DETACHED  Diaplay  datachad  joba.',/, 

3'  /DIAL-IN  Diaplay  dial-in  joba  only.',/, 

4'  /HELP  Show  thia  aaaaaga.',/, 

5'  /NO-DETACHED  Suppraaa  diaplay  of  datachad  joba.',/, 

6'  /NO-OPERATOR  Suppraaa  diaplay  of  operator  joba.',/, 

7'  /OPERATOR  Diaplay  operator  joba.',/, 

8'  /TERSE  Don''t  output  plan  and  nail  information  juat  tha 

9  one-',/,'  lina  job  atatua.',/, 

•'  /VERBOSE  Output  plan  and  mall  info  and  whatever  info  tha 

Iparaon',/,'  haa  in  tha  INQUIR  databaae,  except  for  t 

2ha',/,'  account.  Ignore  if  no  uaarnaaa  given.',/, 

3'  /WHOIS  Uaaful  for  remote  uaara.  Site  dependent  info  ia 

4dia-',/,'  played  about  the  uaar.  For  any  ISI  aite  th 

Sat',/,'  INQUIR  data  exiata  the  following  ia  diaplaya 

6d:  ',/,'  paraonal  name,  network  addraaa,  tha  home  ad 

7dreaa',/,'  and  phone,  work  addraaa  and  phone,  projec 

8t. ' , //) 


c 

C  •••>  MAKING  YOUR  OWN  FINGER. PLAN 
C 

LOGO  FORHATC'  To  aak*  your  own  FINGER. PLAN,  siaiply  aaka  up  a  file  in  XE 
10.  set.',/,'  file  protection  at  77S2S2,  and  title  it  FINGER. PLAN.  V 
2ou  can  update  any  tiae  you  wish,  of  course.  Let''s  see  what 

SFINGERing' '  an  individual  looks  like.  Type  FINGER  JONESDTW  <CR> 
4  sfter*,/,'  the  Executive  Level  proapt. ' 

1065  FORHATC'  What  you  should  hava  typed  waa:  FINGER  JONESDTW  <CR>',//) 
loeo  FORHATC'  JONES  DANIEL  THOMAS  W.  JONESDTW  not  logged  in', 

1//,'  Last  logout  Tue  26-Nov-SS  14:01  froa  TTY233',//, 

2'  Netaail  froa  WBAflMIT-XX . ARPA  at  Tue  26-Nov-65  17:31,  last  read' 
3,/,'  on  Tua  26-Nov-aS  12:56.',//. 

4'  Plan.",//, 

5'  Thia  ia  ay  plan.,  this  ia  ay  dreaa...  to  haaahaa . ',//, 

6'  Sorry  I' 'a  not  here  to  talk  to  you!!  Leave  a  HSG;  I' '11  ba  in' 
7,/,'  touch  nos  skosh! ! ! ' , //, 

8'  To  learn  aore  about  a  parson,  type  "FINGER  <ussrnaae> /VERBOSE. 
•You  will  gat',/, 

S'  the  FINGER  infornation  as  in  the  above  axaapie  plua  the  infornat 
•ion  froa  the',/, 

•'  paraon''a  INQUIR  file.  CSee  INQUIRE  portion  of  this  tutorial). 

•',//) 

1100  FORHATC'  Thia  concludes  the  FINGER  portion  of  this  tutorial.',//) 
1200  FORHATC'  Sorry  to  sea  you  quit  so  soon.  Goodbye.',//) 

1300  FORHATC'  Would  you  like  to  continue  CY  or  N)?  ' ,*) 

1320  FORHATC'  Enter  any  key  to  continue:  ',*) 

1340  FORHATC'  Sigh.  I  guess  it' 'a  ^ust  not  your  day.',//) 

1350  FORHATC'  Aaack!!!  Call  the  rapairaan!  You''ve  acraabled  ay  innards 
1! !' ,//) 

1360  FORHATC'  Do  you  want  another  chance  CY  or  N)?  ',*) 

1370  FORHATC'  Enter  a  "0"  to  quit,  any  other  key  to  continue:  ',*) 

1380  FORHATC'  Enter  any  key  to  return  to  aain  aenu:  ',*) 

1400  FORMAT  Cl Al) 

1410  F0RMATC2A5) 

1415  format C3A5) 

1600  FORHATC////) 

END 


f  r  - 


c 

c 

SUBROUTINE  AlNQR(DUn) 

c  ....................inquIR  subroutine— 

C  •  THIS  SUBROUTINE  EXPLAINS  AND  DEMONSTRATES  THE  "INQUIR"  PROGRAM  « 
c 

DIMENSION  INPUT (1) 

C 

c  ••••  INTRODUCTION  TO  INQUIR 

C 

TYPE  1600 
TYPE  1000 
TYPE  1030 

READ(0S.1400,ERR«100)  INPUT 
TYPE  1600 

IFdNPUTd) -EQ. '0' .0R.INPUT(1>  .EQ. 'q' )G0  TO  520 
100  TYPE  1010 
TYPE  1015 

READ<05,1400.ERR>120)  INPUT 
TYPE  1600 

IFCINPUTd) .EQ. 'N' .OR.INPUTCl) .EO. 'n' >G0  TO  520 
C 

C  EXAMPLE  OF  COMPLETED  DATA  BASE  6  SHOW  COMMAND 

C 

120  TYPE  1020 
TYPE  1030 

READ<05,1400,ERR»130)  INPUT 
TYPE  1600 

IFCINPUTd)  .EQ. '0' .OR.INPUTd)  .EQ.'q' )C0  TO  520 
130  TYPE  1040 
C 

C  ••••  SIGN-OFF  ROUTINE 
C 

500  TYPE  1240 
TYPE  1370 

REA0<0S,1400.ERR«510) 

510  RETURN 
520  TYPE  1250 
TYPE  1370 

READ ( 05 , 1400 , ERR-530) 

530  RETURN 

C 

C 

c  ...............formats  for  inouir  subroutine . . . . 

C 

C  ••«.  INTRODUCTION  TO  INOUIR 

C 

1000  FORMATC//,'  INOUIR'.//, 

1'  INOUIR  allows  you  to  cntar  information  into  a  file  which  can  the 
2n  be  read' , / , 

3'  by  yourself  or  others  using  the  "FINGER  /VERBOSE  <usernane>"  com 
4r.and .  It '  ,  / , 

5'  is  entered  ty  typing  "INOUIR  <CR>"  ofter  the  "®"  Executive  Leve 


1  1  8 


61  prompt. ' , /  , 

7'  Tha  systam  will  raapond  with  tha  “>"  prompt,  following  which  you 
8  typa  tha' , / , 

9'  command  “MODIFY  <usarnana>  <CR>".  whara  uaar  name  is  your  accoun 
•t  nana.',/7, 

1'  Tha  aystam  now  will  ba  at  its  antry  laval,  and  will  eithar  respo 
2nd  with  a' , / , 

3'  “>>“  prompt  (if  data  is  alraady  in  tha  fila>,  or  with  quastioni 
4 (if  thara' , / , 

5'  is  no  information  in  tha  fila).',//, 

6'  Plaasa  nota  that  whila  you  ara  answaring  thase  quastions,  or  lat 
7ar  making',/, 

8'  changaa,  tha  aditing  controls  (DEL  KEY,  'R,  *W  ate.)  may  ba  usad 
9.  Tha  *Z',/, 

•'  is  usad  to  complata  tha  ramarka  saction. ' , //> 

1010  F0RMAT(//, 

1'  Whan  you  finish  with  tha  quastions  you  will  ba  placad  at  tha  ">> 
2"  prompt. ' , /, 

3'  Tha  commands  now  availabla  can  ba  viawad  by  antaring  a 
4aa  usual . ' , / , 

S'  Tha  more  usaful  of  thasa  are:',//, 

6'  ALL  Allows  you  to  raviaw/changa  tha  antira  data  ba 

7sa. ' , // , 

8'  <fiald  namai  Allows  you  to  changa  a  spacific  fiald.',//, 

9'  SHOW  Shows  you  tha  antira  data  basa  as  it  would  app 

•aar  with',/, 

1'  tha  "FINGER  /VERBOSE"  <usarnana>  command.',//, 

2'  EXIT  Exits  to  tha  ">"  prompt  from  the  ">>"  prompt, 

3or  exits' , / , 

4'  to  the  "®"  prompt  from  tha  ">"  prompt  .',//, 

5'  Thus,  once  we  are  satisfied  with  tha  file,  it  takas  two  EXITS  to 
6  get  back' , / , 

7'  to  tha  Executive  Level.',//) 

C 

1015  FORMAT ( '  Would  you  like  to  see  what  a  completed  INQUIR  file  looks 
Hike  (Y  or  N)?  '  ,S) 

C 

C  ••••  EXAMPLE  OF  INQUIR  FILE  /  SHOW  COMMAND 

C 

1020  FORMAT ('  fflINQUIR',/, 

1'  >  MODIFY  HERKERTMK' ,/, 

2'  >>  SHOW',/, 

3'  Directory  name:  PS : <HERXERTMK> ' , / , 

4 '  Name :  ' , / , 

5'  Nick  name:  BOOTS',/, 

6'  Work  address:  C3  CURRICULUM,  NPS  MONTEREY,  CA  93943-100 

71' ,/, 

8'  Work  phone:  (408)  646-2772',/, 

9'  Home  address:  SMC  1001,  NPS  MONTEREY,  CA  93943-1001',/, 

•'  Home  phone:  (408)  372-1665',/, 

1'  Network  address:  HERKERTMK',/, 

2'  Birthday:  CLASSIFIED',/, 

3'  Supervisor:  GARY  POOCK  (NET:  P00CK8ISI A ) ' , / , 

4'  Project:  INTERACTIVE  TUTORIAL  ON  THE  DDN  NETWORK', 


5/. 

6'  Raia^ion:  Grad-Studant' 

7'  Raaarka:  God  halpa  thoaa  which . 

8'  Account:  ' •/ , 

9'  Laat  logout:',/, 

•'  Laat  alteration:  HERKERTMK;  25-Hov-85  00:31:42',/, 

1'  >>  EXIT',/, 

2'  >  EXIT',//) 

C 

1030  FORMATC'  ENTER  "Q"  TO  QUIT,  ANY  OTHER  KEY  TO  CONTINUE:  ',•) 

C 

c  ••••  REHARKS  ABOUT  EMPTY  FIELDS 

C 

1040  format:'  Notica  in  tha  abova  output,  cartain  fialda  ara  blank:  AC 
ICOUNT,  NAME  and',/, 

2'  LAST  LOGOUT.  Thaaa  fialda  are  coapleted  by  tha  aystaa  whan  aoaa 
3ona  FINGERS',/,'  tha  flla  with  /VERBOSE.',//) 

C 

C  ••••  SIGN-OFF  ROUTINE 

C 

1240  format:'  Thia  coaplataa  tha  tutorial  aaction  on  INQUIR.'.//) 

1250  format:'  sorry  YOU  HAVE  TO  RUSH  OFF',//) 

1370  format:'  enter  any  key  to  return  to  the  main  MENU:  ',*) 

1400  FORMAT :1A1) 

1600  format:////) 

END 

C 

c 
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SUBROUTINE  AEMH(DUM) 

======..=electronic  mail  host  SUBR0UTINE=-===»============== 

•  THIS  SUBROUTINE  EXPLAINS  AMD  DEMONSTRATES  THE  ELECTRONIC 

*  MAIL  HOST  MESSAGE  HANDLING  SYSTEM. 


•  V  ■ 


DIMENSION  INPUTd) 

••••  INTRODUCTION  TO  EMH 

TYPE  1600 
TYPE  1000 

•  QUERY  TO  SEE  IF  USER  WOULD  LIKE  TO  CONTINUE 
TYPE  1300 

READ(05, 1400,ERR»10)  INPUT 
TYPE  1600 

IFCINPUTCl) .EQ. 'N' .OR.INPUTCl) .EQ. 'n')GO  TO  50 
•••*  DEMONSTRATION  OF  USING  EMH  PROGRAM 


NUM  =  0 
TYPE  1010 
TYPE  1320 

READ<05,1400,ERR*35)  INPUT 
TYPE  1600 
TYPE  1020 
TYPE  1320 

READ<05,1400,ERR»40>  INPUT 
TYPE  1030 
TYPE  1320 

READ (05, 1400, ERR=45)  INPUT 

SIGN-OFF  ROUTINE 

TYPE  1100 
TYPE  1380 

READ<05,1400,ERR=48)  INPUT 

RETURN 

TYPE  1200 

TYPE  1380 

READ(05, 1400,ERR=70)  INPUT 
RETURN 


FORMAT  FOR  EMH  SUBROUTINE 


••••  EXPLANATION  OF  EMH 
FORMAT (20X, 'EMH' , // , 

1'  ELECTRONIC  KAIL  HOST  (EMH)  is  a  special  kind  of  lioct  on  the  net 


•  Th»  only' , /, 

2'  capability  an  EHH  haa  ia  aanding  and  racaiving  aaaaagaa.  You  wil 
•1  ba  uaing'./« 

3'  TN  in  thia  tutorial;  i£  you"va  £orgottan  that  particular  ayataa 
•,  you  ahould',/, 

4'  atop  hero  and  go  back  for  a  raviaw.',//> 

1010  F0RMAT<'  To  uaa  EKH,  obvioualy  you  will  hava  to  know  aoaaona  who  i 
•a  only  on  that  ayataa,',/, 

1'  woraa  yat,  you  will  hava  to  know  tha  corract  paaawordCa)  to  gat 
•into  that*,/, 

2'  particular  EHH  location.  For  axaapla,  Hawaii  haa  an  EHH.  In  th 
•la  tutorial',/, 

3'  wa  will  login  uaing  "NPSCLASS**  with  a  firat  paaaword  of  FALLDOWN 

•  and  a  aacond ' , / , 

4'  paaaword  of  SPRINCUP.  EHH  paaaworda  ehanga  fraquantly  to  pravant 

•  idla  chitchat,',/, 

S'  uaar  abuaa  and  larga,  Inaxplieabla  billa.  Unlaaa  you  hava  a  good 

•  and  valid',/, 

6'  raaaon  to  aceaaa  an  EHH,  you  will  probably  not  ba  abla  to  gat  in 
• . ' ,//> 

1020  FORHATt'  Hara  la  a  daaonatration  of  accaaaing  an  EHH  “Hoat"  and  a 
landing',/,'  a  aaaaaga: ' , //, 

2'  «TH  HAUAII-EHH' ,/, 

3'  Trying...  Opan',/, 

4'  : login:  NPSCLASS',/, 

S'  PASSWORD:  <falldown>',/, 

A'  BBNCC  RELEASE  S.3.3.  INSTALLED  4  SEP  BS',//, 

7'  HAWAII  ELECTRONIC  HAIL  HOST',/, 

8'  TERH  »  <TI)  TTY',/, 

9'  ERASE  SET  TO  BACKSPACE',/, 

•'  WELCOHE  TO  IHFOHAIL  --  VERSION  2.S.1  —  USED  UNDER  LICENSE  FROH 
IBBNCC' ,/, 

2'  USER  NAHE:  NPSCLASS',/, 

3'  PASSWORD:  <aprlngup>' ,//, 

4'  INBOX  NOW  OPENED  (NB:  Thia  la  aaaaagaa  you  ara  in  racaipt  of)', 

•  //, 

5'  INBOX.',/, 

6'  1  FR0H:P00CK  8  US  /SUBJECT:  THESIS  QUESTIONS??  /  29  NOV  85  18:29 

•  CHT',//,'  -->',//> 

1030  F0RHAT('  You  hava  a  nuabar  of  optiona  in  EHH:  ',/,'  DESK,  INBOX,  0 
lUTBOX,  FILES,  FORKS,  TRASH,  PROFILE,  CURRENT,  PREVIOUS,  *,  *,',/,' 
2  LAST,  ALL.',//, 

•'  Othar  optiona  uaad  to  manipulata  aaaaaga  foraatting,  ate  are:',/ 
3,'  COHPOSE,  COPY,  CREATE,  DESCRIBE,  DISCARD,  DISPLAY,  EDIT, 
4  PEN,',/,'  EXAHPLE,  EXIT,  EXPORT,  FILE,  FORWARD,  GET,  IHPORT,  K 
SEEP,  LOOKUP,  HAIL,',/,'  HAKE,  HOVE,  NEXT,  OPEN,  PRINT,  QUIT,  READ, 
6  REHOVE,  REPLY,  RESTORE,  SCAN,',/,'  SET,  SHOW,  SYSTEH,  TERHINAL. ' , 
7//, 

8'  A  goodly  nuabar  of  thaaa  ara  aalf-axplanatory ,  but  if  you  find  o 
9na',/,'  ia  a  bit  confuaing,  a  quaatlon  mark  typed  after  tha  option 

•  will  elicit',/,'  an  axplanation.  Unfortunately,  the  ESC  and  CONTR 
lOL  keya  do  not  work',/,'  well,  if  at  all,  in  EHH.  Othar  than  read! 
2ng  your  INBOX,  you  will  probably',/,'  find  the  COHPOSE  option,  uae 
3d  to  create  a  meaaage,  tha  aoat  uaef ul .',// ,20X ,' SPECIAL  NOTE',//, 
4'  Since  the  control  charactera  do  not  work  in  EHH,  we  cannot  term! 


‘a'a*a*“*^**  *  e  *  b  ^  a  ^  b  ^ 

•  •  V*  -y*  •  •  • 


In«t.«ad^  •nt.ttr  a  PERIOD 


on  a  lina  by 


«  , 

■ . 

I 


I 


•not*  the  text'./, 

5'  of  o  oessage  with  'Z. 
•itself  followed',/, 

&'  by  a  carriage  return.',//) 


1100 

1200 

1300 

1320 

1380 

1400 

1600 

C 

c 


FORMAT  < 
FORMAT < 
FORMAT ( 
FORMAT < 
FORMAT ( 
FORMAT ClAl) 
F0RMAT<////) 
END 


This  concludes  the  EMH  portion  of  this  tutorial.',//) 
Sorry  to  see  you  quit  so  soon.  Goodbye'.',//) 

Would  you  like  to  continue  <Y  or  N)?  ',S) 

Enter  any  key  to  continue:  '  ,•) 

Enter  any  key  to  return  to  sain  sanu:  ',S) 


o  u  u  u  u 


SUBROUTINE  BILBO (DUN) 

..where  to  go  from  here  SUBR0UTINE>»*>**«>>«»->>> 
«  THIS  SUBROUTINE  OUTPUTS  ADDITIONAL  SOURCES  OF  INFORMATION  ON  • 
•  THE  DDN  NETWORK  AND  THE  TOPS-20  OPERATING  SYATEM 


C 

DIMENSION  INPUT<1) 

TYPE  1600 
TYPE  lOOO 
TYPE  1200 

READ(0S.1400.ERR>10>  INPUT 
10  TYPE  1005 
TYPE  1200 

READ<0S.1400.ERR>20)  INPUT 
20  TYPE  1010 
TYPE  1240 
TYPE  1250 

READ (OS. 1400. ERR« 30)  INPUT 
30  RETURN 


FORMATS  FOR  BIBLIOGRAPHY  SUBROUTINE 


1000 


C 

1005 


FORM AT <1 OX. 'WHERE  TO  GO  FROM  HERE'.// 

1'  Th«  following  ■atarlala  aarve  aa  axcallant  aourcaa  of  Inforaatio 
•n  on  tha'./. 


2'  TOPS-20  oparating  ayataaa  and  aub-ayataaa.  including  HELP,  ?,  AC 
3T10N. ' ./. 

4'  DOCUMENTATION.  FTP.  TN.  FINGER.  MM.  HERMES.  XED.  EMACS.  REMIND, 
5PH0T0, ' ,/, 

6'  WHOIS,  ARCHIVE  AND  SCRIBE,'.//. 

7'  USER"S  GUIDE  TO  TOPS-20 
6'  WAYNE  TANNER 
9'  SEPT  1983  &  APRIL  1984 
•'  use  INFORMATION  SCIENCE  INSTITUTE 
1  INSTITUTE'./. 

2'  4676  ADMIRALTY  WAY 
3'  MARINA  DEL  REY.  CA  90291'./. 

4'  (213)  822-1511  EXT  289'./. 

5'  ACTION  0  ISIE' ,//. 

6'  PROFESSOR  GARY  POOCK'./. 

7'  CODE  55PK'./. 

8'  NAVAL  POSTGRADUATE  SCHOOL'./. 

9'  MONTEREY,  CA  93943'./, 

•'  POOCK0OSC-ISIA' ,//> 


TOPS-20' ,/, 

CHLOE  SOMMERS  HOLG ' . / , 

AUGUST  1983',/, 

use  INFORMATION  SCIENCE 

IBID' ,/, 


FORMAT < '  The  following  ara  Inforaatlva  aourcaa  on  tha  creation  of 
Itha  Dafanse  Data'./. 

2'  Network,  whara  lt''a  at  today  and  where  lt''a  going:',//, 

3'  DDN  NEW  USEF  GUIDE  (NIC  50001)',/, 

4'  MARCH  1985',/, 


5'  DDN  NETWORK  INFORMATION  CENTER',/, 

6'  DON  PROGRAM  MANAGEMENT  OFFICE',/, 

7'  DEFENSE  COMMUNICATION  AGENCY',/, 

8'  WASHINGTON,  O.C.',/. 

9'  (703)  283-3025',//) 

C 

1010  FORMAT ('  Uaaful  addr •■••■:', //, 

1'  BOLT,  BERANEK  AND  NEWMAN  INC.  COMPUTING  ANALYSIS  COR 

2PORATION' ,/, 

3'  30  MOULTON  STREET  1400  WILSON  BLVD.,  SUI 

4TE  1101',/, 

3'  CAMBRIDGE,  MASSACHUSETTS  02238  ARLINGTON,  VIRGINIA  2 

62209' ,//, 

7'  DIGITAL  EQUIPMENT  CORPORATION  DOCUMENT  DISTRIBUTION' 

8,/, 

9'  PO  BOX  CS-2008  USC  INFORMATION  SCIENC 

•ES  INSTITUTE',/, 

1'  NASHUA,  NEW  HAMPSHIRE  03061  4676  ADMIRALTY  WAY.  SU 

2ITE  1100',/. 

3'  MARINA  DEL  RAY,  CALIFO 

4RNIA  90291',/, 

3'  MASSACHUSETTS  INSTITUTE  OF  TECHNOLOGY  ',/, 

6'  ARTIFICIAL  INTELLIGENCE  LABORATORY  UNILOGIC,  LTD',/, 

7'  ATTN:  PUBLICATIONS  160  N.  CRAIG',/, 

8'  343  TECHNOLOGY  SQUARE  PITTSBURG.  PENNSYLVANI 

9A  13213',/, 

•'  CAMBRIDGE.  MASSACHUSETTS  02139',//) 

1200  FORMATf'  ENTER  ANY  KEY  TO  CONTINUE:  ',») 

1240  FORHAT<'  Thla  eoneludaa  tha  bibliography  saction . ' , // > 

1230  FORMATC'  TYPE  ANY  KEY  TO  RETURN  TO  THE  MAIN  MENU:  ',*) 

1400  FORMAT <1A1> 

1600  FORMATC////) 


INTRODUCTION 


This  Flowchart  Describes  The  ELC2  Subroutine: 


• 

V  *. 

(  MAIN  ] 

VPROGRAiy 

^  •  V*  •  • 

•  r.- 

ar  igm 

This  Flowchart  Is  Typical  For  The  Following  Subroutines 


This  Flowchart  Describes  The  Where  To 
6o  From  Here  Or  BILBO  Subroutine: 


INITIAL  DISTRIBUTION  LIST 


No.  Copies 


Defense  Technlcsl  Information  Center  2 

Cameron  Station 

Alexandria,  Virginia  22304-6145 

Library,  Coda  0142  2 

Naval  Postgraduate  School 
Monterey,  California  93943-5100 

Professor  H.  G.  Sovereign,  Code  74  1 

Naval  Postgraduate  School 
Monterey,  California  93943-5100 

Joint  C3  Curricular  Officer,  Code  39  1 

Naval  Postgraduate  School 
Monterey,  California  93943-5100 

Professor  Gary  K.  Poock,  Code  55PK  10 

Naval  Postgraduate  School 
Monterey,  California  93943-5100 

Major  Tom  Brown,  USAF,  Code  39  1 

Naval  Postgrqaduate  School 
Monterey,  California  93943-5100 

LCDR  Mark  K.  H.  Herkert,  USN  2 

c/o  Commanding  Officer 
FAIRECONRON  THREE 

FPO  San  Francisco,  California  96601-6517 

LT  Sheri  L.  Smith,  USN  2 

94  Montsalaa  Dr. 

Monterey,  California  93943 

Chloe  Sommers  Holg  2 


University  of  Southern  California 
Information  Sciences  Institute 
4676  Admiralty  Way 
Marina  del  Rey,  California  90292 

Joel  Goldberger  2 

University  of  Southern  California 

Information  Sciences  Institute 

4676  Admiralty  Way 

Marina  dal  Ray,  California  90292 
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11 


2 


San  Dalatorra 

Univarsity  of  Southarn  California 
Information  Sciancaa  Instituta 
467&  Admiralty  Way 
Marina  dal  Ray,  California  90292 
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